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Nerve Development: 

Digitization and 
Three-Dimensional 
Reconstruction from Serial 
Sections 



Fig. 1. Selecting fertile frog’s eggs from a yiewly-laid batch at McGill University in Montreal, where 
the author is on a special studies program. The embryos are used to obtain nerve and muscle cells for 
tissue culture studies of development of connections between them. 


by David F.Davey 
Neurobiology Laboratory 
University of Sydney 
N.S.W., Australia 


As a part of the Neurobiology Laboratory’s 
continuing investigation of embryonic nerve 
development, Max Bennett, Kerrie Uebel 
and I began a detailed study of the growth 
of nerves into the wing of the chick embryo. 
Our initial interest centered on the estab¬ 
lishment of the first two nerve trunks into 
the limb, a process which occurs between 
about 3 1/ 2 days of embryonic age when the 
limb is simply a tiny bulge on the embryo, 
and about 5 days when it has grown to a 
length of about 2 mm. (The chick hatches at 
21 days.) 


The size was small enough to require 
microscopy, yet large enough to require 
serial sectioning to analyze a whole wing. 
We quickly found that constructing a view 
of the rapidly developing limb from such 
sections, often exceeding a thousand in 
number, was a very difficult task. We 
dreamed of computer techniques, but were 
discouraged by attempts of a colleague to 
make use of some 3-D architectural pro¬ 
grams on a large computer. These methods 
proved too compromised towards rectilinear 
structures; finding out that much proved 
expensive. 


Just at the right time, another colleague, 
Professor J.A. Young, obtained a 4051 
Graphics Computer and 4662 Interactive 
digital plotter. We are indebted to him for 
allowing me to investigate the usefulness of 
these machines in our study. It is a credit to 
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the simplicity of the Tektronix BASIC 
graphics commands, that with only little 
Fortran experience, the 4051 and 4662 
manuals, and a session with the graphics tu¬ 
torial program, I had a crude digitization 
and display program working within about 
20 hours of access to the machines. 

The general approach I adopted was to 
digitize outlines of the chick wing, and 
structures within it that we were interested 
in, by placing light micrographs directly on 
the 4662 and tracing these structures using 
the cross-hair sight and joystick control. 
The “CALL” button was used to signal the 
start and end of lines, and the coordinates 
were obtained within a loop containing a 
GIN command. The X-Y data, together 
with information on distance separating ad¬ 
jacent sections enabled three dimensional 
projections of the traced information to be 
displayed. 

Several problems associated with the data 
acquisition quickly became evident, and 
these turned out to have a common solution. 
First, it was possible to digitize far too many 
points per unit length of line traced; too 
many both in terms of the resolution we 
needed and in terms of the data storage and 
handling. Second, the number of points per 
unit length of line traced varied with the 
speed of tracing. Third, with even a fair 
amount of practice, it was difficult to avoid 
straying from the intended line using the 
joystick, especially if a large amount of ma¬ 
terial was being processed. 

The solution to these problems lay in the 
following strategy. First, I predetermined 
how many points were to be permanently 
stored for each outline to be traced (small 
structures such as the nerve trunks did not 
require as many points as the outline of the 
wing itself), and from the data acquired 
from the digitization run with the joystick) 
calculated the positions of these points such 
that these calculated points would be equi¬ 
distant. Second the position of these points 
were verified by the joystick operator so 
that when the initial tracing inevitably 
strayed from the desired line, the operator 
could reposition the points using the 
joystick. 

In the meantime we found that comparing 
structure outlines from one section to the 
next was difficult working with micrographs 
themselves, and began to draw our outlines 
onto overhead projector transparent sheets. 
Groups of these can be easily compared, and 
if water soluble pens are used for drawing 
outlines, alterations are easy and^ quick. 
These transparencies are held well by the 
4662 electrostatic hold-down, so we began 
to digitize from these transparencies. 



Fig. 2. Light micrograph of a section through trunk and wing of a chick embryo after 3 112 days 
incubation. One nerve trunk (arrow) can be seen growing from the spinal cord (SC) toward the wing- 
bud (W), which is about 1/2 mm long. The section is only about 1 pm thick; 500 to 1000 such sections 
are required to follow all the nerves into the wing. They are obtained by embedding a chemically 
preserved embryo in an epoxy resin which is cut with a glass knife using a microtome. 




Fig. 3a & 3b. Key structures are outlined on overhead projector transparencies placed over the 
micrographs. These are handy for comparing adjacent sections. The original sections, which are 
stained with two different coloured dyes, are referrred to when making these outlines. In addition, 
thinner sections cut periodically from the same specimen are examined in the electron-microscope to 
positively identify small structures. The denser area outlined in the wing bud is the first sign of 
muscle development. 
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Digitization Procedures 

Data input begins by initializing file names, 
number of structures, points per structure 
and number of sections to be digitized. The 
program then requests the operator to trace 
each line in turn for each section. For each 
such line the method is: 

1. In response to a request on the 4051 
screen, and the plotter prompt light being 
illuminated, the operator moves the plotter 
cursor to the start of the line and signals 
readiness to begin tracing by pressing the 
plotter’s "CALL” button. The program 
puts the pen down and the operator then 
traces the line with reasonable (but not ex¬ 
treme) accuracy, using the joystick control. 
The end of the line is signalled by pressing 
" CALL * again. During the trace, X,Y co¬ 
ordinates of the pen position are repetitively 
determined by the program executing a 
GIN request to the plotter and transferring 
the result to a disk scratch file. The length 
of line traced is summated. At this stage the 
path of the cursor is digitally approximated 
by the series of coordinates in the disk file. 
The length of the series of straight lines 
joining these points is divided into n—1 
equal length segments (where n is the pre¬ 
determined number of points to be used fi¬ 
nally to represent the line), and the 
coordinates of the points at the end of each 
segment and lying on the approximation 
formed by the series of lines is calculated. 

2. Under program control, the plotter 
cursor is moved to each of these points in 
turn, and the operator checks that the calcu¬ 
lated point lies appropriately on the original 
desired outline. It may not, either due to 
tracing inaccuracy during step 1 or because 
sharp contours have been represented by too 
few points in step 1. If necessary the opera¬ 
tor repositions the cursor with the joystick. 
The operator accepts the point by pressing 
“CALL”; the cursor position is then saved 
as. the permanent coordinate for that point. 

The overall result is the storage of the pre¬ 
determined number of points lying on the 
original outline with an accuracy under the 
control of the operator. The points will be 
separated by equal distances unless gross 
repositioning has occurred during step 2. 

These steps are repeated for each structure 
traced from the section, and finally the pro¬ 
gram requests the distance separating the 
section from the previous one, then the data 
for the current section are written to disk. 

Although the scheme was devised as a 
means of coping with the difficulty of trac¬ 
ing with the joystick, as well as with the 
data handling problems mentioned above, it 
has an additional payoff. Since a structure 



Fig. 4. Examples of digitized outlines such as shown in Fig. 3. A-C from 4 adjacent sections from the 
digital file. Since only about every fifteenth section is digitized, these represent about 60 pm of the 
limb. Note that one of the nerves emanating from the spinal cord in C (see arrow Fig. 2) is not present 
in A. 


is represented by an equal number of points 
in each digital section, corresponding points 
in adjacent sections can be connected in 
drawing the three dimensional projections 
of the data without any further calculations 
being necessary. Such connecting lines are 
very useful in representing continuous struc¬ 
tures, such as nerve trunks, in the recon¬ 
structions. Clearly just having an equal 
number of points in each section does not 
guarantee a reasonable point-to-point corre¬ 
spondence without ensuring a relation be¬ 
tween the start and end of each outline from 
one section to the next. This must be borne 
in mind when drawing the outline from the 
micrographs in the first instance. 


Principle of Data Output 


The aim of the programs used to handle the 
digitized structural information is to depict 
three-dimensional representations of the 
structures traced on the transparencies and 
to represent these data in two dimensional 
projections. Furthermore these representa¬ 
tions can be examined from any viewpoint, 
taking perspective into account. To this end 
the programs enable rotation of the data in 
the X-Y plane about the Z-axis and tilting 
of the data in the Y-Z plane about the X- 
axis. Drawings of the data are built up from 
many drawings of single sections (apart 
from joining corresponding points in adja- 
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cent sections) and the technique may be de¬ 
scribed on the basis of a single section. 

The simplest representation of a section is 
without rotation or tilting. If the Z co-ordi¬ 
nate of the section is zero, the representa¬ 
tion of the section is identical to the original 
tracing; if greater than zero it is “similar” 
(in the Euclidean geometrical sense) to the 
original tracing but slightly larger to ac¬ 
count for it being closer to the viewpoint 
(i.e., the distance between the section and 
the viewpoint, used to determine perspective 
would be different). 

Rotation of the projections is achieved sim¬ 
ply by a transposition of the XY data, 
recalculating the values of the co-ordinates 
using the origin as the center of rotation. 
Tilting of the projections involved certain 
approximations, related to perspective, con¬ 
sidered expedient in terms of the time re¬ 
quired to generate drawings. If the Z co¬ 
ordinate of a section is zero, tilting its 
projection involves a rescaling of the Y axis 
to reduce the magnitude of each Y coordi¬ 
nate to Ycos 0 where 0 is the angle of tilt. 
Perspective is not accounted for, leading to 
a slight distortion in the Y direction. Per¬ 
spective calculations are also not applied to 
the X co-ordinates, again leading to a slight 
distortion. The point of these approxima¬ 
tions is that they enable scaling simply 
through a “SCALE” command. No 
trigometric calculations in BASIC are 
required. 

If the Z co-ordinate of a section is greater 
than zero, calculation of new Y scaling fol¬ 
lows recalculation of the XY data to ac¬ 
count for perspective, as described above for 
a case where no tilting is involved. The fact 
that the Z co-ordinate differs from zero 
means that the distance to the viewpoint 
also differs from that if no tilting is intro¬ 
duced, and this is taken into account in the 
calculation since this proved to be of consid¬ 
erable importance in providing three-dimen¬ 
sional visual cues. These calculations can be 
applied simply with a “MOVE” and 
“ SCALE ” sequence. 


Production of Full Reconstructions 

Some of our reconstructions have been fair¬ 
ly complex, both in terms of the numbers of 
structures being represented and the fact 
that we have structures within structures 
within structures, e.g. nerves within muscles 
within the wing. Because the method does 
not involve any routines to remove hidden 
lines, the final representation of the ^recon¬ 
structions presents some problems. At the 
same time we have not wanted to remove 
hidden lines, since we have been concerned 



Fig. 5a. Reconstruction of limb sections such as shown in the micrograph of Fig. 2 and the digital 
outlines of Fig. 4. In this case no rotation or tilt has been used. 




Fig. 5c. Tilt alone reveals four nerves (arrows) entering the limb, but their relationship is confused. 


Stage 22 CC49-22) 

Rototad 90 dag. Till 60 dag. Viawlng distar 


800pm 


3-D 22-SEP-81 02.S6.16 DK1.4922.3D 


ya 

V/ / - 

'A* 


V 



Fig. 5d. Both rotation as in B and tilt as in C enables the convergence of the four nerves towards the 
muscle density (see Fig. 3) to be seen. This information is exceedingly difficult to convey using only 
serial micrographs such as shown in Fig. 2. This view looks into the limb bud from inside the chick. 
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with the way nerves grow inside the other 
structures. The use of different colors aids 
in our own analysis, but the cost of color 
printing prohibits this as a solution to pro¬ 
ducing figures for publication. Two addi¬ 
tional developments have helped with this 
problem. First I have provided for drawing 
the reconstructed structures in a variety of 
ways based on combinations of dashed lines, 
solid lines, drawing the outlines contained in 
each digitized section and drawing lines 
connecting sections. Structures drawn with 
solid lines with sections connected are easily 
seen within larger structures drawn with 
dashed lines without sections being 
connected. 

The second development proved even more 
powerful, that of producing stereoscopic fig¬ 
ures. Since stereopsis depends upon the 
slightly different viewpoints of the two eyes, 
and the slightly different visual information 
therefore received by each eye, and since the 
variation of viewpoint is easily achieved by a 
three-dimensional rotation, the production 
of stereo pairs of illustrations is a very sim¬ 
ple extension of the reconstruction 
technique. 

The methods have enabled members of the 
Neurobiology Laboratory to complete anal¬ 
ysis of the development of the chick wing 
innervation, and a number of related studies 
have been completed and are in progress. 
Quite a number of computer-drawn illustra¬ 
tions have been published. Most of the work 
would have been impossible without such a 
powerful tool. Jgj} 

References: Bennett, M.R., D.F. Davey, and K.E. 
Uebel, "The Growth of Segmental Nerves From 
the Brachial Myotomes Into the Proximal Mus¬ 
cles of the Chick Forelimb During Development, ” 
J. Comparative Neurology, 189, pp. 335-357. 



Fig. 6. Example of a full reconstruction of serial sections through a muscle cell (dashed outlines) 
through the region where nerve cell branches (solid lines connected from section to section) contact the 
muscle. Parts of one of nerve branches was found in the electron microscope not to make functional 
contact. This is indicated by broken connecting lines. Scale bar represents 0.1 mm. 



Fig. 7a. Chick wing about 1/2 day older than the one of Figs. 2 through 5. The nerves have entered the 
wing and are headed for the lower muscle density. The upper density is newly formed, and would have 
been reached by a nerve branch in another few hours. 



Fig. 7b. An unusual toad-muscle cell contacted by two different nerve cells. Stereoscopic examination 
reveals the right-hand (branched) nerve to be on the far side of the muscle cell. Its apparent overlap 
with the left hand nerve can be resolved. 


Fig. 7. These pairs of figures are calculated so that if the left figure is viewed with the left eye and 
fused with the right figure viewed with the right eye, the three dimensional structure can be seen. 



development. 


Fig. 8b. Looking through the hole. 
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4050 Users Share Data Storage 

and Retrieval in New Tektronix Hard Disk 


by Chuck Smith 
and Dave Watts 
Tektronix, Inc. 
Wilsonville, OR 


. . . 1 to 10 simultaneous users . . . 768 mil¬ 
lion bytes of disk storage ... removable disk 
cartridge .. . dynamically allocated files . . . 
variable length records . . . indexed files . . . 
file security ... continuous time/date clock . 


These functions characterize the advanced 
technology of the TEKTRONIX 4909 
Multi-User File Management System. The 
4909’s smart approach to file management 
and its cost effective data storage and shar¬ 
ing bring convenient economical mass stor¬ 
age to 4050 Series users. 

Flexible configurations allow easy expan¬ 
sion of users or storage. The modular design 
of the 4909’s controller connects up to 11 
GPIB or special purpose interfaces through 
simple plug-in slots. 

Each GPIB interface supports one 4050 
desktop computer; each disk interface han¬ 
dles two disk drives. 


With full plug-in configuration up to 10 
4050 Systems may be interfaced to the 
4909-10 simultaneous users! It solves the 
transportability problem for users who share 
data; it also provides large local storage for 
applications such as drafting, design, map¬ 
ping, data acquisition, data analysis, re¬ 
search and development. 

When adding more users to a system, no 
software or operating system change are re¬ 
quired. The modular plug in approach to the 
controller allows you to add or reduce users 
easily. 


As part of the standard 4909 package, a 
GPIB interface is included which will trans¬ 
fer data in burst mode at 240,000 bytes per 
second. (Of course, the actual data transfer 
rate depends on your system and applica¬ 
tion.) Additional GPIB interfaces are avail¬ 
able as users are added. 


Supports one or two disk 
drives per interface 


Maximum storage capacity is 768 
megabytes; the standard 4909 configuration 
includes the controller and one disk drive of 
32 megabytes; 16 megabytes of which are Fig. 1. Easy plug-in interfacing supports up to 11 interfaces. 
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Supports one GPIB device per interface 














on a removable cartridge. An optional 4909 
disk drive contains 96 megabytes of storage 
(16 megabytes removable). 



Fig. 2a. 16 Megabyte removable disk pack pro¬ 
vides backup and transportability of data. 



Fig. 2b. Disk capacity is either 32 megabytes or 
96 megabytes. 


A total of eight drives may be used with one 
4909 controller, resulting in maximum stor¬ 
age capacity of 768 megabytes (8 x 96). Ad¬ 
ditional drives are housed in attractive 
auxiliary cabinets, each of which supports 
pne or two disk drives. 


English (ASCII) commands which operate 
the 4909 may be directly transmitted over 
the GPIB. Therefore, any computer or in¬ 
strument controller which supports IEEE- 
488 1978 may access the 4909. For 4050 
Series users, a ROM pack is available which 
allows easy access to the 4909’s file han¬ 
dling in 4050 BASIC, without having to use 
GPIB print and input statements for file 
operation. 

Through its intelligent controller, advanced 
file management functions formerly avail¬ 
able only on mini or mainframe systems 
have been implemented in the 4909. Be¬ 
cause the file management system resides 
within the 4909, very little 4050 memory is 
required and commands are executed from 
the 4909 not from 4050 software. With 
more of the file handling chores built into 
the 4909, it takes fewer commands to get 
the job done; and default parameters make 
the commands easy to use. 

File Space Allocated Dynamically 

For instance, the space required for data is 
calculated by the 4909. It expands or con¬ 
tracts the file size as data is stored or modi¬ 
fied. No longer does the user need to worry 
about estimating the correct file size or 
what to do when he reaches the end of the 



Fig. 4. 4909 handles file management chores. 



Fig. 3. A fully configured system would include 8 disk drives and 7 users. 
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Records May Be Variable Lengths 

Records within a file may be different 
lengths. For example, within a binary file a 
record holding x,y,z coordinate position data 
might contain 28 bytes while in the same 
file another record holding a text string 
might contain 100 bytes. And the storage 
space for each record is calculated and allo¬ 
cated as needed by the 4909. 

Concatenated Volumes Link Disk 

Concatenation allows two or more disk to be 
treated as if they were one. Files on one disk 
may overflow to another, yet appear as one 
logical unit. Thus, the remaining capacity 
on a disk is not a limiting factor when stor¬ 
ing data. Large data bases may be contin¬ 
ued from one disk to another. And, 
information may be retrieved without speci¬ 
fying which disk it is on. 



Fig. 5 Files may occupy more than one disk yet 
be accessed as though on one. 


Multiple Level Storage Structure 

There is no limit to the number of libraries 
permitted in the 4909 storage structure and 
file names may be up to 100 characters 
long. These features result in meaningful 
file storage. 



Fig. 6a. An overview of 4909 file management 
hierarchy. 
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MULTIPLE LEVEL LIBRARIES 



Fig. 6b. Multiple level libraries result in coher¬ 
ent data bases. 


INDEXED FILES 



Fig. 7a. ASCII indexed files are a natural method for storing and retrieving data. 



Fig. 6c. File names may be up to 100 characters 
long. 


KEY 

Index: “FLOORPLAN” 
or 

Approximate: “ FLOOR” 
or 

Prefix: “FL” 

Fig. 7b. Users have three options for retrieving data from ASCII indexed files. 


Fig. 7. Schematic of an ASCII indexed file. The combination of file types offers a blend of efficient 
data storage and flexibility. 


Three File Types Provide Flexible Data 
Manipulation 

The 4909 offers six types of data files: bina¬ 
ry or ASCII direct, binary or ASCII 
numeric indexed, or ASCII indexed binary 
or ASCII. 

A direct file contains a stream of bytes usu¬ 
ally accessed in a serial fashion. However, 
an individual byte may be addressed by 
specifying the byte number relative to the 
beginning of the file. 

Indexed files are similar to direct files but 
are divided into records. Each record may 
be accessed by a unique key. If the file is a 
numeric indexed file, the keys are integers 
and a record is retrieved by number, like 
most random access files. 

If the file is an ASCII indexed file, the keys 
are alphanumeric, i.e., employee names, 
payroll codes. Because names are easier for 
most of us to remember, ASCII indexed 
files provide a natural method for storing 
aand retrieving data. And the 4909 can be 
directed to locate a record in an ASCII in¬ 
dexed file without stipulating the record’s 
exact key. By specifying an approximate 
key, the 4909 will locate that index and then 
step through other records having a key 


equal to or greater than the specified key. A 
prefix search will locate an index that starts 
with the specified prefix. This is many times 
faster than searching numeric indexed 
records from beginning to end, or faster 
even than a binary search of numeric in¬ 
dexed records. 

Files Carry Time and Date 

Battery backup on the 4909’s clock means 
it’s set at the time of installation only. It 
doesn’t have to be reset at each power up. 
The current time and date will automatical¬ 
ly be stamped on files as operations on them 
occur. 


Disk Security 

Each disk drive consists of a fixed and a 
removable portion, each of which is consid¬ 
ered a separate physical volume. However, 
the term “ volume” may be extended to in¬ 
clude several physical volumes. 

When a disk is initially formatted, volume 
configuration is stipulated and names are 
assigned to each logical volume. At the 
same time the user may provide a master 


password for each logical volume. If includ¬ 
ed, other users must supply this password 
when attempting to reformat the disk(s) or 
when performing restricted operations. 

Volume security also comes in the form of 
the removable cartridge disk which allows 
files to be backed up and removed from the 
system for archiving. 


Public and Private Space 

Depending upon the number of hard disks 
interfaced to it, the 4909 can support from 
one to 10 users at one time. To accommo¬ 
date the users, public and private file 
workspaces may be declared. 

Private file workspaces are declared in ad¬ 
vance for individuals and each is assigned 
their own password. No one may access a 
private space without the correct password. 
Public workspace provides users common 
access to the same storage space. Thus casu¬ 
al users of the 4909 are not required to re¬ 
member passwords or special commands. 
Files need not be copied to a users space in 
order to access them. 
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For each file, an access list may be assigned 
which specifies which users have access to 
the file and what type of access is allowed. 
The five levels of access are: full access, 
write access, append access, read access and 
no access. Several users may access the 
same file simultaneously. 

Another type of file access works much like 
an airline reservation system. A user can ob¬ 
tain exclusive use of a file for updating. Op¬ 
erations on the file by others are not 
permitted until the file is released. Requests 
to read, write, etc., are queued until the file 
is free, then are handled on a first come, 
first served basis. (Users have the option of 
not remaining in the queue should a file be 
reserved when they wish to access it.) 

4909 Functionally Compatible with 4907 

Although the 4909 offers more features 
than the TEKTRONIX 4907 File Manager 
and has differing commands, it is function¬ 
ally compatible. For 4907 users wishing to 
convert their programs and data files to the 
4909, a utility is available through the 4050 
Series Applications Library. The utility pro¬ 
grams aid in the conversion and identify the 
changes required in the 4907 program to 
complete the conversion. The 4907-to-4909 
conversion utility will be described in more 
detail in a future issue of TEKniques. 


4909 Not Just Another Hard Disk 

The 4909 allows users to store their own in¬ 
dividual programs and data, but also allows 
them access to common programs and data. 
The latest program version will easily be 
available to users; the latest data will be at 
their fingertips. And sharing achieves more 
value per byte of storage. 

4909 storage capacity permits users to 
download and store a very large amount of 
data, thus alleviating the interaction prob¬ 
lems with a host and increasing user accessi¬ 
bility and control. 

While easily slipping into any 4050 Series 
environment, the 4909 also provides mass 
storage for data acquired from 
TEKTRONIX Test and Measurement in¬ 
struments, or any instrument controller sup¬ 
porting GPIB. The 4909 Supports 
Tektronix Codes and Formats for GPIB 
instruments.* 

Advanced file management and easy 
expandability ensure the 4909 a place as a 


*Tektronix Codes and Formats information 
is available in Tektronix publication part 
number 99AX-4607. The standard was also 
discussed in Electronics , March 24, 1981: 
“ In-house standards fill gaps in instrument- 
computer interface,” by Maris Graube, 
Tektronix, Inc. 


long term companion to the 4050 Systems 
and other GPIB compatible system. 

For those interested in details, the following 
table lists some of the features of the 4909. 
14" hard disk 
600 bits per inch 
384 tracks per inch 
30 millisec seek time 
8.33 millisec latency 

Your TEKTRONIX Sales Engineer will be 
happy to supply you with more details on 
the 4909 Multi-User File Management 
System. JgD 
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Computers Making Computers 



Using a 405l-to-paper tape-to-punch press system, Prime Metals has increased productivity and 
accuracy in the sheet metal fabricating shop. 



Machine operator mounts the sheet metal “ blanks” and clamps them. The rest is automatic. (Photos 
courtesy of Prime Metals.) 


by Carter West 
Prime Metals 
San Carlos, CA 

Take a look at your 4050 system. The out¬ 
side is wrapped in sheet metal; the inside 
contains many metal parts enclosing electri¬ 
cal components, mechanical components 
and so forth. Prime Metals is a precision 
sheet metal firm manufacturing these types 
of metal components for computer systems 
in use today. One of our best “ workers” in 
the process from design to final product is 
the 4051 desktop computer. 

Using a series of programs, the 405l’s capa¬ 
bilities, and our U.S. Amada punch press, 
we can turn out parts efficiently and accu¬ 
rately. A human operator could possibly 
make one accurate part, but not 3,000 and 
not at 4:30 in the afternoon or 8:00 on a 
Monday morning. 


WORK TIME : 62 SEC. 

71 HITS 
26 NBL HITS 

HANDLIHG : 13 SEC. 



Fig. 1. A punch press works very much like a 
sewing machine. For one punch, the head comes 
down, punches, then raises and moves to the next 
punch position. For contouring, the head comes 
down and up rapidly, continuously moving a 
short distance to make a smooth cut; this is 
called nibbling. Note that the 4051 calculates 
user time of each part, a big help in costing or 
quoting. 

As the first step, we define the part on the 
4051. The code produced will eventually be 
transmitted to a paper tape drive which 
punches out a tape to instruct the punch 
press. 

Program functions are invoked through the 
405l’s User-Definable Keys (UDK). Press 
a UDK and the program prompts for the 
new part. Referring to a book of codes, and 
reading from a blueprint, the operator keys 
in the move or draw and the X, Y dimen¬ 
sions of a part. 

Tekniques 
Vol. 5 No. 4 


Once the cut dimensions and punch posi¬ 
tions are keyed in, another UDK is pressed 
and the operator keys in tool instructions. 
Our punch press has a turret tool holder 
with 72 tool stations. 

Therefore, we must tell it which tool to put 
in which station and which station to use at 
which cut. For instance we might use a 1" 
by 1" punch at station 1, a 1/4" round hole 
punch at station 3, and so on. 

The sheet size is figured so the shearing de¬ 
partment can cut the metal blank to those 



Fig. 2. Instructions from 4051 to punch press in¬ 
clude which tool to put in which of the 72 sta¬ 
tions in the turret tool holder. (Diagram from 
U.S. Amada Ltd.) 
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dimensions. Clamp positions guide the ma¬ 
chine operator in clamping the sheet metal 
on the punch press. 

Before sending the code to the 4907 disk, 
the operator plots on the screen exactly 
what the punch press will do. If desired, we 
can take calipers, scale the plot, and tell if a 
hole or cut is within at least 1/16 of an inch 
to the blueprint callout. 

UORK TIME : 103 SEC. 

40 HITS 

NBL HITS 

HANDLING : 13 SEC. 



SHEET SIZE 
38180.13000 
CLAMP P0S. 
8080 ,30000 

END 


At production time the tape is sent to the 
machine operator on the fabricating floor. 
Just before the tape goes downstairs another 
4051 program enters the name of the cus¬ 
tomer, tape number, job number and so 
forth. We also input the tools used, the loca¬ 
tion of the tools and the shear sizes. The 
hard copy of the plot is put in plastic with 
this information slipped into the other side. 
By tagging this to the sheet metal the shop 
foreman knows exactly what’s being worked 
on and for whom. 

After the machine operator inserts the tape 
into the punch press controller, an optical 
scanner reads the tape and transmits the 
instructions to the machine. All the operator 
has to do is mount the sheet metal on the 
punch press, clamp it, then remove it and 
repeat the process. High level skills are not 
required, and allows the operator to perform 
other duties until the part is completed. 


Fig. 3. Previewing the plot on the 4051 display 
prevents mistakes. Notice the elliptical cutout 
automatically calculated by the 4051. 

Once the operator is happy with the input, 
it’s stored on the disk. What we have at this 
point is a series of codes that the paper tape 
drive understands. 



From feedback signals, the control unit veri¬ 
fies the machine is cutting and punching 
where it should be. Accuracy is within 
1 /5000 of an inch. 

The 4051 has created a whole new approach 
for us. It can do anything. For instance, to 
calculate a 13° arc across a 12° shape man¬ 
ually would require days; the 4051 can do it 
in 20 seconds, and it’s accurate! 

It’s also very easy to define identical parts 
for the same sheet. We key in the dimen¬ 
sions one time. The 4051 calculates the 
placement of the like parts, where they will 
be cut or punched, and optimizes the moves 
between parts or cutting areas and tool 
changes. 



Fig. 5. The 4051 will memorize and repeat a 
pattern. The design was programmed only once, 
then the 4051 told to repeat it 15 more times. 


Fig. 4. Each line of code instructs the machine 
to move or cut or punch, specifies the coordinates 
and the tool station. 

When we’re ready to punch the tape, the 
data is transmitted over the Option 1 to the 
tape drive. We can also read the code back 
in from the paper tape punch. 


However, the 4051 is not limited to coding, 
sheet metal fabrication. We use it for pay¬ 
roll, job storage and inventory. One of our 
immediate goals is using it for status report¬ 
ing. The secretary would input the status of 
all jobs based on purchase orders received 
and jobs finished. We predict a reduction in 


time spent updating this report from two 
hours to 15 minutes; and this is a daily re¬ 
port. Thus, the information for each cus¬ 
tomer’s would be available first thing in the 
morning-very critical since customers have (f 
a daily need to know when their parts will 
be available. 


We work on a tight schedule and with close 
tolerances; the 4051 is helping us do a better 
job for our customers. JSh 



Fig. 6. The 4051 will compute any angle (or 
arcs) asked of it. 



Fig. 7. Hard copy specifies sheet size for the 
shearing department and clamp positions for the 
machine operator. It also carries the work time 
for the punch press and handling time for the 
machine operator. 



Fig. 8. The use of “plotting” instantly shows er¬ 
rors to be corrected. 


12 


Tekniques 
Vol. 5 No. 4 





New ROM Pack Produces High Quality 
Characters and Symbols on 4052 and 4054 
Graphic Systems and Plotters 



by Mark Mehall 
Tektronix, Inc. 

Beaverton, OR 

The 4052R11 Character and Symbol 
ROM pack brings high quality stroked 
characters or symbols to the 4052 or 
4054 Graphic System and the 4662 or 
4663 Plotter. It adds 27 commands to 
4050 Series BASIC to display alphanu¬ 
meric characters and symbols, draw 
smoothed arcs and circles, generate cus¬ 
tom symbols or provide additional graph¬ 
ics enhancements. Character/symbol siz¬ 
ing, spacing, proportioning, rotation 
angle, degree of slant, and smoothness 
are easily programmed. 

Over 100 different characters/symbols 
are contained in the 4052R11 ROM pack 
including upper and lower case letters 
for both the English and Greek alpha¬ 
bets, mathematical and special symbols, 
and characters for Swedish, German, 
Spanish and Danish languages. 

Using the Character and Symbol ROM, 
you may easily draw arcs and circles. 
Circles are drawn around the cursor po¬ 
sition at a given radius. Arcs can be 
specified by giving either the radius and 
starting and ending angles of the arc, or 
by giving the center of the arc and the 
angle from the current cursor position. 


You may also design your own symbols 
which can be manipulated in the same 
manner as the ROM pack charac¬ 
ters/symbols. 

The Character and Symbol ROM Pack 
provides additional graphics functions for 
more flexible graphic input from the 4052 
and 4054. Using the ROM with the Dy¬ 
namic Graphics Option of the 4054, you 
may drag refreshed objects around the 
screen, dynamically reading the coordi¬ 
nate locations of the object. 

You’ll find the Character and Symbol 
ROM pack an invaluable aid for labeling 
engineering drawings, preparing presen¬ 
tation graphics, or annotating any type of 
alphanumeric or graphic design. Contact 
your local Tektronix Sales Engineer for 
more details about the versatile 4052R11 
ROM pack. JS& 


UPPER and Iower Case: 

Eng I ish: ABCD. . .wxyz 
Greek: Y4>IT . . . ^ /x 7T a 

Numbers: 0123456789 

Centered Symbols: □ o^ + oisw©ffl + 
Math Symbols: 

Special Symbols: { } C 1 J # $ % S £ 96 

Swedish, German, Spanish and 
Danish Characters: AOAadONcL^ 

Slanting: and Right 

Over 100 Symbols, ANY Size, 


Adds Dynamic Graphics Functions 
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Sample of the characters generated using the 
4052R11 Character and Symbol ROM pack. 


COMPOUND NAME: DATE: JULY 31 

p-METHOXY-a-METHYLBENZYL ALCOHOL 

MOLECULAR FORMULA: C g H| 2 0 2 INSTRUMENT: BRAND X MODEL 123 

MOLECULAR WEIGHT: 152.20 SAMPLE SOURCE: DEPARTMENT A 

XYZ COMPANY 
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The 4052R11 allows High Quality Annotation of Graphs and Drawings. 
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Input/ 

Output 


File Names for the 4907 File Manager 

W. Budde from the Optics Section of the 
National Research Council in Ottawa, 
Canada, writes: Could you please tell me 
what the character requirements are for file 
names for the 4907 File Manager? I can’t 
seem to locate them in the 4907 Operator’s 
manual (October, 1980). 

The requirements for file names are: 

1 to 10 characters. 

First character musj; be alpha, the 
rest may be alpha or numeric. 

No special characters allowed. 

No spaces or delimiters. 

Internal Representation of Numbers 

Several readers have requested the internal 
format for numeric data in the 4050 system. 
Much of the following information has been 
extracted from the 4051 GPIB Hardware 
Support manual (part #070-2270-00). 

All numeric values that enter the 4050 Ran¬ 
dom Access Memory (RAM) are stored in a 
special eight-byte floating point format. 


Byte 

Byte 

Byte 

Byte 

Byte 

Byte 

Byte 

Byte 

1 

2 

3 

4 

5 

6 

7 

8 


Status and Exponent Information 

The first byte and the second byte contain 
status and exponent information. The for¬ 
mat for these two bytes is shown below: 


Li- 1.. 0 1 MHM I I 1 T 


-L— 1 . . ED 


. Undefined Number Bit 
0 = Defined Number 
1 = Undefined Number 

■ Sign Bit 
0 = Plus (+) 

1 = Minus (-) 


The bit on the far left (bit 8 in byte 1) is the 
sign bit. This bit tells the 4050 processor 


whether the numeric value is positive or 
negative. If the bit is 0, the number is posi¬ 
tive or 0. If the bit is 1, the number is 
negative. 

The second bit from the left (bit 7 in byte 1) 
is the undefined number bit. The 4050 uses 
this bit in arrays to detect undefined ele¬ 
ments. Binary numbers coming into the 
4050 will always have this bit set to 0. 

Three bits in byte 1 must be set to zero: bit 
6, bit 5, and bit 4. 

The three least significant bits in byte 1 and 
all the bits in byte 2 form a binary number 
that serves as the exponent. The exponent 
range for 4050 numbers is 2 ~ 1024 to 2 1023 . 
To keep the exponent representation posi¬ 
tive, 1024 is added to each exponent to 
make the range 0-2047. This means that if 
bit 3 in byte 1 (the most significant in the 
exponent) is set to 1, the exponent is 0 or 
positive. If bit 3 in byte 1 is set to 0, the 
exponent is negative. 


Example 1: Bit 3 in byte 1 and bit 2 in byte 
2 are set to 1. The rest of the exponent bits 
are set to 0. What is the true exponent of 
the floating-point number? 


BYTE 1 BYTE 2 


j - 

" \ / V. 

1024 512 256 128 64 32 16 8 4 2 1 

L 1 

| | | Il|olol0|0|0|0|0|0|l|0| 


Exponent 


This binary bit pattern represents 1026. The 
true exponent is found by subtracting 1024 
from this number, therefore, the exponent is 
2 (i.e., 2 2 ). 


Example 2: Bits 1 and 2 in byte 1 and bits 1 
through 8 in byte 2 are set to 1. The rest of 
the exponent bits are set to 0. The true ex¬ 
ponent is found by subtracting 1024 from 
this number, therefore, it is 1023 — 1024 or 
-1 (i.e.,2- 1 ). 


256 128 

X 


1 1 1 | T'"i oTT'i UJ hi’ h Q 1 Hi I □ 


Binary Mantissa Represents Numbers 

The remaining bytes in the floating point 
number form a binary mantissa which al¬ 
lows numbers to be represented with 48 bits 
of precision. This representation is shown 
below: 


BYTE 3 BYTE 4 



1 1 I 0 1 1 1 0 1 0 I 0 1 0 I 0 H tt I Q 1 q 1 0 I 0 1 a 1 P I 0 I 


.0625 T_ .001953125 

IMPLIED RADIX POINT 



-20 -21 s -22 -23 . 


;0 [o [o jo jo |o||0]0 |<3 jo |(3 |q [o [<3 | 
. 7.629394531 E-6 t_ 2.980232239E-8 


2 33 2 34 2 35 2 36 2 -37 2 38 2 39 2 -40 2 ‘41 ^42 .,43 2 -44 g -45 2 46 2 47 

i » i « i » i » i » i » i » i « i « i « i « i « r« i ■ i « i » i 

t _ 1.164153218E-10 1 _. 4.547473509E-13 


c. 


If bit 6 and bit 8 in byte 3 are set to 1 as 
shown above, and the rest of the bits are 0, 
the binary mantissa is equal to 2 _1 + 2 -3 
which is equal to .625 in base 10. 

In another case, if bit 8 in byte 4 and bit 8 
in byte 7 are set to 1 and the rest of the bits 
are zero, the binary mantissa is equal to 2~ 9 
+ 2~ 33 . This number is equivalent to 
.00195312511642 in base 10. 

This representation method allows numbers 
to be stored in the 4050 memory with a 
great deal of precision. 


Floating Point Numbers are Normalized 

ASCII numbers coming into the 4050 are 
converted to floating point and normalized; 
that is, the binary bits in the mantissa are 
shifted left as far as possible and the differ¬ 
ence made up in the exponent. The follow- r 
ing examples illustrate the difference 
between a floating point number that is not ^ 
normalized and a number that is normal¬ 
ized. Both numbers represent the same deci¬ 
mal value. 

For instance A = .0625 is entered into the 
4050 system. Converting this decimal frac¬ 
tion to its binary equivalent we have .0001. 


|0]0|0|0|0|l I 0 I 0 H 0 I 0 I 0 I 0 I 0 IOIO 1 3 I 


BYTE 3 BYTE 4 


2 -1 2 -2 2'3 2 4 2 5 2' 6 2 7 2' 8 2' 9 

2 .10 2 11 2-12 2-13 2-14 2 15 2 -16 

|0|o]0|l|0|0|0|0||0| 

0]0|0|0|0|0|0| 

'■ t t L _ -0625 

Xrr- 125 

_ .5 

__ IMPLIED RADIX POINT 


BYTE 5 

BYTE 6 

2-17 2 T8 2 -19 2 -20 2 -21 ,-23 ,24 ,-25 

z 26 ,27 ,-28 ,29 ,-30 2 -31 2 32 

| 0 | 0 [ 0 [0 | 0 | 0 [0 | 0 || 0 | 

0 l 0 |a| 0 |o| 0 |a| 

\ _ 7.629394531 E-6 

BYTE 7 

BYTE 8 

y 2 33 2 34 2 35 2 36 2 37 2 38 2 39 2 ^°^ 

2 *42 2 *43 2 '44 2 ‘ 45 2 ' 46 2' 47 2' 48 

1 0 1 0 I 0l 0 1 0 1 0 [ 0 1 0 [1 0 1 

0 1 0 1 o 1 0 1 .0 1 0 la I 

Example 3: The floating point number is not 
normalized because there are leading zeros 
in the mantissa. 
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BYTE 1 

BYTE 2 

J 

1024 512 256 128 6 

V 

Z 

1 0 1 0 1 0 1 0 1 0 1 i 1 i II i 1 

1 | 1 | 1 | 1 | 1 | 0 | 1 | 



Exponent 


BYTE 3 

BYTE 4 

/* 

2 

I' 1 2' 2 2 3 2 4 2 5 2 6 2 7 2 8 2 9 

2'10 2 11 2 12 2 13 2 14 2 15 2 16 

, □ 

i|0|o|o|o|o|o|o||0T 

0 | 0 | 0 | 0 | 0 | 0 | 0 | 

i i 

t t t_ .0625 

L_rir-' 2S 

_ .5 

_ IMPLIED RADIX POINT 

BYTE 5 

BYTE 6 

r~ 

? 17 2 18 2 19 2 20 2 21 s 2 -22 2 23 ^24 g 25 

"\ 

2 26 2 27 2 28 2 29 2 -30 2 31 2 32 

d 

a|o[0 1® [o (o |o |0||°l 

0 1 ® 1 0 1 0 1 0 1 0 1 0 1 


BYTE 7 

BYTE 8 

/ 

2 

33 2 34 2 35 2 36 2* 37 2 38 2 38 

V 

2 *42 2 -43 2 -44 2 45 2 46 2 47 2 48 

[j 

|0|(3|0|0|0|O|0||0| 

8 1 8 1 8 1 ‘ 1 h 


Example 4: The floating point number has 
been normalized by shifting the mantissa 
bits three places to the left. To make up for 
the increase in the value of the mantissa, the 
exponent is decreased by 3. 


We will illustrate in the next section that 
the decimal value of this normalized binary 
number is the same as the decimal value of 
the binary number shown in example 3. 

All binary numbers coming into the 4050 
must be normalized because the 4050 
firmware math routines assume that all 
floating point numbers in memory are 
normalized. 

Putting It Together 

The complete floating point representation 
is expressed in the following formula: 

N = (-l) s x M |0 x 2 (E - |024) 

where N = the decimal number entered 
into the 4050 

M 10 = the decimal equivalent of 
the binary mantissa (last 
six bytes). 

s = the sign bit (1 or 0). 

E = the decimal equivalent of the 
binary exponent. 

Referring to example 3, let’s compute the 
decimal equivalent of the floating point 
number. 

The sign bit S = 0 

The exponent E = 1024 

The mantissa M )0 = 2~ 4 = .0625 

The decimal number N = ( —1)° x .0625 x 

2(1024-1024) 

N = 1 x .0625 x 1 
N = .0625 


Now let’s compute the decimal equivalent of 
the normalized floating point number in ex¬ 
ample 4. 

The sign bit S = 0 

The exponent E = 1021 

The mantissa M, 0 = 2~ ] = .5 

The decimal number N = (-1)° x .5 x 

2(1021-1024) 

N = 1 x .5 x 2~ 3 
N = .0625 

If A = 100 is entered into the 4050 system, 
its floating point representation is: 




BYTE 1 


BYTE 2 





1024 512 

V / 

256 128 

64 32 16 8 4 

2 

1 v 

□ 

Li 

0 1 0 1 0 1 0 1 i 1 0 1 

0 II 0 1 
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Exponent 





BYTE 3 


BYTE 4 
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IMPLIED RADIX POINT 







BYTE 5 


BYTE 6 



r 

i" 

218 2 19 2 20 2 -21 ^ 22 2 -23 

2 34 2 2i 

S 2 26 2 Z? 2 28 2 29 2 30 

2 31 

—\ 

2 32 

C 

u 

0(0 |o [0 |o |o | 

0 1 0 

I 0 | 0 | 0 | 0 jo I 

ZI 

1] 


L 

_ 7.629394531 E-6 







BYTE 7 


BYTE 8 



r 

2*33 

2 34 2' 35 2 -36 2* 37 2 38 2* 39 


1 2 42 2 43 2 44 2 45 2 46 

2 47 

> 

[ 

®n 

0|0|0|0|0|0| 

0110 

| 0 | 0 | 0 | 0 | 0 | 

13 



First, the decimal 100 is converted to its bi¬ 
nary equivalent of 1100100. This value is 
normalized by shifting it right seven places. 
The change in value is reflected by increas¬ 
ing the exponent by 7, or to 1031. 

Now, applying the formula 

The sign bit S == 0 

The exponent E = 1031 

The mantissa M J0 = 2 -, T-2 -2 H- 2~ 5 = .5 
+ .25 + .03125 = 
.78125 

The decimal number N = (—1)° x .78125 

x 2( 103, - ,()24 ) 

N = 1 x .78125 x 2 7 
N = 100 

To represent the number 0.0, bit 3 in byte 1 
is set to 1 (exponent = 1024), the remain¬ 
ing bits in the 8 bytes are all set to 0. JSih 
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Getting Larger Images 
from the 4611 Hard Copy Unit 


by Cathy Cramer 
Tektronix, Inc. 

Wiisonville, OR 

We’re pleased to announce a new option for 
the 4611 electrostatic Hard Copy Unit*. 
Called Option 1 for Landscale Image For¬ 
mat, it provides a larger image on the paper, 
for easier reading and better detail. 

Option 1 is factory or field-installable, and 
creates images ina “ landscape * rather than 
"portrait" orientation, with an enlarged im¬ 
age size. The landscape format provides a 
10" by 7.5" image on legal-size paper (see 
Figure 1). That’s 30 extra square inches of 
image area! The legal-size paper can be 
hand-trimmed to 8 1/2" X 11" with one 
cut, leaving a half-inch border on all sides of 
the image. 

The landscape format provides a more 
readable image, and improved copy quality 
when used with 19" or larger storage tube 
displays. Dot size, line width, dot density 
(dots per square inch), and toner concentra¬ 
tion all remain unchanged. However, the to¬ 
tal number of dots per image increases, 
providing finer detail for small-size alpha- 
numerics and dense graphics. 

A sample copy is printed on the following 
page. Since it’s reproduced by a printing 
process, it does not represent the copy qual¬ 
ity of an actual sample. However, it does 
show you the new image size and 
orientation. 

*For more information, contact your local 
Tektronix representative about the 4611 
Option 1 Hard Copy Unit, 

TEKniques Vol. 5 No 1 introduced the 4611 Hard 
Copy Unit. 




4611 Standard and Optional Image Formats 
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Belgium, United States Entrants 
Win Firsts in Graphing Contest 


Dony Robert, mathematics instructor 
from Brussels, Belgium, walked away 
with first prize in the 3-D Graphing con¬ 
test sponsored by TEKniques. His 
“General Function Z=F(X,Y) Plot” 
draws two variable functions with hidden 
lines removed. The program, user inter¬ 
face and documentation are outstanding. 
4050 Applications Library software users 
may remember Mr. Robert as having 
contributed “3D Function Plot” to the 
Applications Library a couple of years 
ago. 

From Whirlpool Corporation in Benton 
Harbor, Michigan, Steven Salisbury sent 
in his unique “Pipechart.” His original 
approach to data representation garnered 
Steve first place in the 2-D Graphing 
with Shading contest. He is a marketing 
data analyst with Whirlpool. 

Second place winner in 3-D Graphing is 
Dr. P.R. Tregenza from the Dept, of Ar¬ 
chitecture at the University of Notting¬ 


ham in England. Hidden line removal 
and perspective are included in his func¬ 
tion plot. Optional output as a stereo 
pair enhances his program and provides 
the name “Stereo Surface.” 

Jerry Anderson, a quality assurance en¬ 
gineer from Bartlesville, Oklahoma, 
grabbed second and third prizes in 2-D 
Graphing with “Contour Plots” and 
“Hierarchal Clustering.” He also en¬ 
tered two additional programs, “Nonli¬ 
near Mapping” and “Vertical Plot.” Jer¬ 
ry indicates the four programs will aid in 
applications of statistics, operations 
research, pattern recognition, cluster 
analysis, quality assurance, and multivar¬ 
iate analyses. 

A 4050 user from the University of Bun- 
desweher in Munich, Germany, captured 
third prize in the 3-D Graphing. Lothar 
Tschimpke contributed “3-D Plot with or 
without Hidden Lines.” His code is ex¬ 
tremely easy to read. 


Honorable mention went to Robert 
Kennedy and Elliot Noma from Philadel¬ 
phia, Pennsylvania. “PLOT3D” func¬ 
tions as an appended subroutine to a 
main program. Their code is well RE- 
Marked. 

All programs are describedin the “New 
Abstracts” section of TEKniques. 

TEKniques thanks all of the contributors 
who took time out of busy schedules to 
document and send in their programs. 
Their programs will provide many 4050 
users with unique and useful methods for 
graphing. Jg) 


New GPIB Guide Features 4050 
as Instrument Controller 


GPIB instruments designed by Tektronix 
go beyond simply conforming to the 
IEEE Standard 488-1978. Tektronix 
GPIB instruments use the Tektronix 
Standard for Codes and Formats* pro¬ 
viding a common message structure for 
all system instruments. The result is 
easier, faster, and more efficient system 
integration and application programming 
between the controller and the instru¬ 
ments. 

The GPIB Programming Guide (part # 
070-3985-00 aids the user of 4050 Desktop 
Computers and TEKTRONIX TM5000 ser¬ 
ies instruments in making the software 


*The Tektronix Standard for Codes and 
Formats is discussed in Tektronix-publi¬ 
cation “A Vital Link in Instrument Sys¬ 
tems: The General-Purpose Interface Bus 
(GPIB),” part #AX-4524-l. 


connection. The Guide introduces the 
4050 as a controller for TM5000 instru¬ 
ments, with programming information 
specific to instrument control. Major top¬ 
ics in this section with coded examples 
where applicable are: 

4050 Desktop Computer IEEE con¬ 
troller capabilities 
GPIB Input/Output 
Interrupt handling 
Interrupt handling statements 
Utility routines 

4052/GPIB send and receive program 

TEKTRONIX TM5000 series instru¬ 
ments specifically covered in the Guide 
include: 

DC5009 and DC5010 — 
Programmable Universal Coun¬ 
ter/Timers 


DM5010 — Programmable Digital 
Multimeter 

FG5010 — Programmable Function 
Generator 

PS5010 — Programmable Power Sup- 
ply 

A final section lists programs that show 
two or more Tektronix TM5000 instru¬ 
ments working together in a system with 
the 4050 as the controller. The guide in¬ 
cludes source code for 47 routines. 
Machine readable copies of the routines 
are included in the 4050 Applications Li¬ 
brary as part of TEKniques Vol. 5 No. 4 
T1 tape, part number 062-5981-01. JSh 
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Conditional GOSUB 


by Tom Price 
Lorillard 
Greensboro, NC 


A useful programming construct is the 
conditional GOSUB. How many times in 
4051 BASIC have you wanted to write 
IF A<=B THEN GOSUB 500? It would 
probably have come out coded like this: 


158 IF A>B THEN 179 
100 GOSUB 590 
170 REH — 


Dynamic Programming Aids 


by Scott E. Lee 
Tektronix, Inc. 
Indianapolis, IN 


Several techniques I have found useful 
are incorporated in the following pro¬ 
gram. The main function of the program 
(lines 100 to 230) is to dynamically create 
and evaluate expressions which might be 
useful in several cases: 


4 GO TO 100 

40 PAGE 

41 LIST 100.230 

42 RETURN 

80 KILL "EVAL.BAK" 

81 CALL "RENAME",0,"EVAL"."EVAL.BAK" 

82 SAVE "EVAL" 

83 RETURN 
100 INIT 

110 PRINT "TYPE EXPRESSION. "; 

120 INPUT A* 

130 A*="10000 PRINT "&A* 

140 CALL "FILE".0,"eEXPEVAL.LINE".S* 

150 IF S*<>“" THEN 170 

160 CREATE "SEXPEVAL.LINE"."A";1.0 

170 OPEN "SEXPEVAL.LINE";1,"F",S* 

180 PRINT »1.A* 

190 PRINT n 1: 

200 CLOSE 1 

210 APPEND "SEXPEVAL.LINE"."A";220 

220 REM ThIs line will be replaced with a PRINT 

230 GO TO 110 


TYPE Function and 4051 

by Tom Price 
Lorillard 
Greensboro, NC 

Calling the TYPE function before writing 
to an empty file on a 4051 will overwrite 
the file header. Issuing a second FIND 
command after the TYP function cor¬ 
rects the problem. 


Conditional GOSUBs make programs 
much easier to read and cut out lots of 
“dead” GOTOs. The above example be¬ 
comes: 


150 GOSUB A<*B OF 500 


This will work for any conditional except 
one containing an equals preceded by 
one variable name. The 4051 parser will 
not accept it unless it’s enclosed in par¬ 
entheses. It then removes the par¬ 
entheses and is unable to reparse it if the 
line is edited or the program is saved in 
ASCII format. 


1. Using “Calculator Mode” without ex¬ 
iting from a program. 

2. Examining variables for program de¬ 
bugging without pressing BREAK 
(this mode could be invoked with a 
UDK). 

3. Creating functions on the fly by con¬ 
catenating together things like 
“ + SIN(X)”, “ + COS(X)’\ and 
“H-LOG(X)”. In this case an assign¬ 
ment statement should be created in¬ 
stead of a PRINT. 

This same technique could also be used 
to create multi-line routines to be AP- 
PENDed. 

Note that the extra PRINT at line 190 is 
needed to generate a blank line which 
means end-of-file to the APPEND com¬ 
mand. 
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Overwrites Header: 


1S0 FIND F 

168 IF TYP<0><>0 THEN 200 
170 PRINT 133:A* 

200 REH GET ANOTHER FILE 


Preserves Header: 


159 FIND F 

160 IF TYP<0><>0 THEN 200 
170 FIND F 

180 PRINT 033:A* 


Won’t work: 


GOSUB A=B OF 500 
GOSUB L«50 OF 1000 


Works well: 


GOSUB HOT <AOB> OF 500 
GOSUB 50=L OF 1000 


This affects a very small percentage of 
the cases encountered during normal 
programming. No extra memory is re¬ 
quired when the branch is not taken. I 
think you will find this novel and quite 
useful. 


Also in this program (lines 80 to 83) is a 
UDK definition that will SAVE the pro¬ 
gram and make a backup of the previous 
version. 

Lines 40 to 42 allow you to list a section 
of the program (for example the section 
you are currently working on) with only 
one keystroke. Sometimes I will define 
several of the UDK listing keys, one for 
each subroutine that I am debugging. 
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Rotation About an Arbitrary Axis 


by Javad Farjami 
Tektronix, Inc. 
Wilsonville, OR 




The steps to rotate an object through an 
angle 0 about an arbitrary axis are: 

1. Translate the object into a new coor- 


dinate system (Matrix T): 



1 

0 0 

0 


0 

1 0 

0 

T = 

0 

0 1 

0 



-y® -z () 

1 

where (x 0 ,y 0 

,z 0 ) is a point through 


which the rotation axis passes. 


2. Map the unit vector which lies along 
the axis of rotation into the unit vec¬ 
tor along the Z axis (Matrices Ri,R 2 ): 


Ri = 


10 0 0 
c b 

o VF+c 2 VF+c 2 o 

— b _ c 

0 Vb 2 +c 2 Vb 2 +c 2 0 
0 0 0 1 


Rf ] 


10 0 0 
c b 

0 Vb 2 +c 2 Vb 2 +c 2 0 
b c 

0 VF+c 2 vF+F 0 

0 0 0 1 


Note: a 2 +b 2 +c 2 = 1; since <a,b,c> is 
assumed to be a unit vector. 


Vb 2 +c 2 0 a 


0 


5. Apply the inverse of step 1 (Matrix T 1 ): 



1 0 0 

0 Vb 2 + c 2 0 

0 0 1 


where <a,b,c> is a unit vector along 
the axis of rotation. 


3. Perform the desired rotation 0 about 
the Z axis of the new coordinate sys¬ 
tem (Matrix R 0 ): 


Re = 


cos 0 -sin 0 0 0 

sin 0 cos 0 0 0 

0 0 10 

0 0 0 1 


0 0 0 

1 0 0 

0 1 0 

y» z 0 i 

Note: the purpose of step 4 and 5 is 
to return the object to its original 
coordinate system. 

6 . The complete transformation is thus: 

Q = TRtRjRj'Rj'R ,' 1 T 1 
or: 

[X ( Y,Z,l] = [x,y,z,l]-Q 


T 1 = 


1 

0 

0 

x 0 


4. Apply the inverse of step 2 (Matrices 

R^Rf 1 ): 


Vb 2 +c 2 — a 

a 2 +b 2 +c 2 0 a 2 +b 2 +c 2 


R 2 -1 = 


0 1 0 

a 

a 2 + b 2 + c 2 0 Vb 2 +c 2 
a 2 + b 2 + c 2 


0 0 0 


0 

0 

1 


or: 

X = (x-x 0 )(a 2 + (l-a 2 )cos 0 ) 

+ (y-y 0 ) (ab(l-cos 0 )) + csin 0 ) 

+ (z-z 0 )(ac(l-cos 0 ) ~ b sin e) + x 0 

Y = (x-x 0 )(ab(l-cos 0 ) -csin 0 ) 

+ (y-Yo) (b 2 + (1 — b 2 )cos 0 ) 

+ (z- z 0 )(bc(l-cos 0 ) + a sin 0 ) + y 0 

Z = (x-x 0 )(ac(l-cos 0 ) +bsin 0 ) 

+ (y~y 0 ) (bc(l-cos 0 ) - a sin 0 ) 

+ (z- z 0 )(c 2 +(l-c 2 ) cos 0 ) + z 0 


100 INIT 
110 PACE 

120 VINOOW -260.260,-200.200 

130 PRINT "ENTER A POINT ON THE AXIS OF ROTATION 
140 INPUT X0.Y0.Z0 
150 SET OECREES 

160 PRINT "ENTER THE DIRECTION OF THE AXIS OF ROTATION."; 
170 INPUT A.8.C 

180 REH COMPUTE THE COMPONENTS OF THE UNIT VECTOR 

190 O=(AT2*BT2+CT2)T0.5 

200 A=A/D 

210 B=B/0 

220 C=C/D 

230 A2=I-AT2 

240 B2xl-BT2 

250 C2=I-CT2 

260 REM B5 REPRESENTS THE TANGENT OF THE ANCLE THAT EACH 

270 REM AXIS 1X, Y, AND Z) MAKES WITH THE SCREEN. 

280 B5=(2/3)T0.5 
290 A5=50 
300 M=180 
310 PACE 

320 REM 0 IS THE ROTATIONAL ANGLE. 

330 FOR 0=0 TO 360 STEP 20 
340 01=1-COS(O> 

350 REM THE FOLLOW INC LOOP DRAWS THE OBJECT (CIRCLE) . 

360 FOR J=-M TO M STEP 5 
370 XI=A5*SIN(J)-X0 
380 Y1=A5-Y0 
390 Z1=A5*COS(J)-Z0 
400 U1=X1t(AT2+A2HC0S(0)1 
410 VI=Y1*fBT2*B2*C0S(0)) 

420 W1=Z1*(CT2+C2*COSIOn 
430 U2=Y1*(A*B*0H-C*SIN(0n 


440 V2xZ1*(8*C*0l4-A*SIN(0>) 
450 W2=X1*(A*C*01♦B*SIN(0)) 
460 U3=Z1*(A*C*01-8*SIN(01) 
470 V3=X1*(A*B*01-C*SIN(0)I 
480 V3=Yt*(8«C*01-A*SIN(01 1 
490 U=(U1+U2+U3+X0I*B5 
500 V=(V1+V2*V3*Y0)*B5 
510 W=(W1+W2*W3+Z0)*B5 
520 X9=(V-U)*C0S(30) 

530 Y9=W-(U+V)*SIN(30) 

540 IF J=-M THEN 570 
550 ORAW X9.Y9 
560 CO TO 580 
570 HOVE X9.Y9 
580 NEXT J 
590 NEXT 0 
600 END 
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Function Plot with Auto Scaling 


by Dr. J.L. Aubel 

Department of Physics 
University of South Florida 
Tampa, FL 

The following program will automatically 
scale and plot a function — f(x) — which 
may include user-defined parameters. 
The function is described at statement 
110. Parameters may be set in statements 
900 and 990. 


100 Y=SINCX5/X 
Origin Is ot 9,. 0 

Tic Intervale are 1 For x ond 0.02 For y 



118 Y*TAN<X> 



1 REM Function plot 

2 N=180 

3 ON SIZE THEN 400 

4 PRINT "LEnter function at line 110. Then press UDK2* 

5 PRINT "Paraneters way be entered in lines 900 to 990" 

6 D=32 

7 END 

3 GO TO 890 
100 Y=ASN<X> 

190 RETURN 

200 IF Y=8 THEN 290 

210 T5 a 10tINT<LGT<Y> > 

228 Y a 0.2*INT<5*Y/T5+l>*T5 
290 RETURN 

300 T5=10tINT<LGT<2*S>> 

310 T=<2+3*<S/T5>2.5>-<S/T5<1>>*T5/10 
390 RETURN 

400 IF X>X0 THEN 190 
410 X*X+X5/10 
420 G0SUB 100 
438 RETURN 

890 REM Set Paraneters 

1080 PRINT "LEnter Xnin, Xnax" 

1010 Y0=0 

1020 Y9*8 

1030 INPUT X0.X9 

1040 X5=<X9-X0)/10 

1050 IF X5<=0 THEN 1000 

1060 X=X0-X5 

1070 X=X+X5 

1080 G0SUB 100 

1090 Y9=Y9 MAX Y 

1100 Y0*Y0 MIN Y 

1110 IF X<X9 THEN 1070 

1120 Y*Y9 
1130 G0SUB 20t> 

1148 Y9*Y 
1150 Y*-Y0 
1160 GOSUB 200 
1170 Y0=-Y 
1180 S=Y9-Y0 
1190 GOSUB 300 
1200 T2=T 
1218 S=X9-X0 
1228 GOSUB 300 
1230 T1=T 
1240 PAGE 
1250 LIST §D:100 

1255 IF X0<=0 AND X9=>0 THEN 1270 
1260 PRINT 8D:"Origin is at »;X0;", 0" 

1270 PRINT 0D1“Tic intervals are "?Tls“ for > 

1280 UIEMP0RT 2,130.0,80 
1290 HIND0H X0,X9,Y0,Y9 
1300 AXIS 0D:T1.T2 
1310 X~X0 
1320 X5«S/N 
1330 GOSUB 180 
1340 MOUE 0D:X,Y 
1350 X*X+X5 
1360 GOSUB 100 
1370 DRAM 8D:X,Y 
1380 IF X<X9 THEN 1350 
1390 HOME 
1400 END 


and "?T2;“ for y" 


Message Prompting 


by J. Eltabet 

University Paris Val 
de Marne 
Creteil, France 

Two subroutines aid in general message 
prompting and answer input. The first 
one displays the message using two 
statements followed with the subroutine 
to prompt for input. 


200 HI*"QUESTION." 

210 GOSUB 5000 

220 REH Here you perforn answer treatment 
239 EHD 


5000 REH Question Subroutine 

5010 FOR H9*l TO 8 

5020 PRIHT HI;■ : IP 

5030 NEXT H9 

5048 PRIHT Hip : G" J 

5050 IHPUT HI 

5860 RETURH 


The second one performs a YES/NO 
question input. 


200 HI*"QUESTI0N. 
210 GOSUB 5000 
220 GOSUB 5070 
230 END 


5008 REH Question Subroutine 
5018 FOR H9*l TO 8 
5020 PRIHT HIP *. K" 

5030 HEXT H9 
5040 PRIHT HIP : G"J 
5050 IHPUT HI 
5060 RETURH 

5070 REH Yes/Ho Subroutine 
5080 U»P0SPYESH0",HI,1> 

5090 IF U THEH 5130 

5100 HI»-Y<ES> OR H<0> PLEASE" 

5110 GOSUB 5008 

5120 GO TO 5980 

5130 U*U®1 

5140 RETURH 


Changing a 4052/4054 File Header 


by F.G.G. Voigts 

National Physical Re¬ 
search Laboratory 
Pretoria, South Africa 

The program given on page 7-42 (Rev. 
A, Mar 1979) of the Reference Manual 
works well on the 4051. The 4052 and 
4054 on the other hand require a CLOSE 
statement (or implied CLOSE, e.g. 


FIND) before the PRINT @33,0:0,0,0. 
Therefore, the program should read: 


108 

120 

130 

140 

150 

160 

170 

180 

185 

190 

208 

218 


IHIT 

PRIHT 033,0:0,0,1 
FIHD 2 
INPUT 033:Al 
AI=REP<"HATH*,28,4) 
FIHD 2 

PRIHT 0335AI 
PRIHT 0335"S" 

CLOSE 

PRIHT 033,0:0,0,0 

TLIST 

EHD 


20 
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Modifications to Data Graphing to Redraw Lines 


by Victoria Skwiertz 
Union National Bank 
Pittsburgh, PA 

The following modifications to the pro¬ 
gram, “Data Graphing” will redraw the 
lines/dashes on the plotter in line graph 
charts. These darker, heavier lines stand 
out more and are easier to read, which is 
particularly useful for graphs that are re¬ 
produced or drawn for overhead trans¬ 
parencies. 

The lines are drawn darker and heavier 
under the control of two variables: 

V2 counts the number of times the 
line is redrawn. It is increased to 4 
but can be changed to a higher num¬ 
ber for even darker lines. 

V3 is the symbol for the change in the 
pen position. It is incremented by 0.1 
with each iteration. A heavier line 
could be drawn by changing this val¬ 
ue. 


I have worked with several different ver¬ 
sions of “Data Graphing” and the section 
of the program that draws the lines is 
similar so these modifications could be 
added if your version resembles the list¬ 
ing. 


In this particular version, “Data Graphing 
for the 4051/2/4” the following instruc¬ 
tions are inserted after the ‘CHANGE 
PEN COLOR IF DESIRED’ routine. 
The line numbers reference this version. 


(initializes pen moving increment) 
(skips redrawing on screen) 


(add pen moving increment to pen position) 

(skip repeating if screen) 
(skip if bar charts) 
(adds 0.1 to move pen position up) 
(goes back to redraw lines) 


4090 IF 2*32 THEN 4140 
4100 IF F**"N" THEN 4140 


4140 REN NODIFICATIONS-REDRAMS LINES ON PLOTTER 

4141 03*0 


4142 IF Z=32 THEN 4150 


4143 REN TEST FOR BAR CHART 

4144 IF B2(K>*1 OR B2<K>=2 THEN 4150 


4146 REN 02*INCRENENT TO NODE PENj V3=C0UNTER FOR 4REDRAWS 
4148 FOR 02*1 TO 4 


4232 R=R+03 

After instruction 4850 insert 

4852 IF 2=32 THEN 4868 

4853 IF B2<K)*1 OR B2<K>=2 THEN 4860 

4854 03-03+0.1 
4856 NEXT 02 


+060 VIEWPORT 20.120,20,90 
4070 WINDOW 20.120,20,90 
4080 FOR K=1 TO HI 
4090 IF 2=32 THEN 4140 
4100 IF F$="N" THEN 4140 

4110 PRINT "J CHANGE PEN COLOR IF DESIRED, THEN PRESS CR«J 
4120 PRINT @2J"GGGG"? 

4130 INPUT X* 

4140 REM M0DIFICATI0NS-REDRAWS LINES OH PLOTTER <4232,4852)5/13^81 MS 

4141 V3=0 

4142 IF 2=32 THEN 4150 

4143 REM TEST FOR BAR CHART 

4144 IF B2<K>=1 OR B2«)=2 THEN 4150 

4146 REM M2=INCREMENT TO NOME PENIM3*C0UMTER FOR • REDRAWS-MS 

4148 FOR U2=l TO 4 

4150 X5=0 

4152 Y5=0 

4160 M4=1 

4170 E0=0 

4180 FOR 1=1 TO N 

4190 IF Y< I, K>< >8.938465674E+307 THEN 4220 

4200 E0=1 

4210 GO TO 4850 

4220 R=20+?0*<Y<I,K)-L2>/S4 

4230 C»S3+S2*<1-1) 

4232 R=R+M3 

4240 IF D4<K>=8 THEN 4850 

4250 IF B2<K>=1 OR &2 Ki*2 THEN 4390 

4260 IF E0=1 THEN 4280 

4270 IF IOl THEN 4320 

4280 PRINT @2,21!C,P 

4290 E0=0 

4300 C1=C 

4310 R1=R 

4320 IF D4<IO=0 THEN 4370 

4330 G0SUB 6050 

4340 C1=C 

4350 R1=R 

4360 GO TO 4950 

4370 PRINT <?2,20:C.R 

4380 GO TO 4850 

4390 IF E0=0 THEN 4420 

4400 E0=0 

4410 GO TO 4850 

4420 IF N9=0 THEN 4490 

4430 W2=<W1*2/N9-0.5V2 

4440 C2=C-H1+M1+N8*U1*2 

4450 IF B2<K) = 1 THEN 4M0 

4460 L3<I)=L9 

4470 H7<I>=L9 

4480 GO TO 4510 

4490 C2=C 

4500 W2=W1 

4510 IF R<L9 THEN 4590 
4520 R=R-L9 

4530 PRINT 62,21:C2-W2iL3<I> 

4540 PRIHT eZ,20:C2-W2,R>L3(I),C2*W2,R+L3<I).C2-fW2,L3<I>,C2-W2.L3<I> 
4550 L6<1>=L3<I> 

4560 L3<I)=L3<I)+R 
4570 L6<2>=L3<I) 


4580 GO TO 4650 
4590 R=L9-R 

4600 PRINT e2.21:C2-W2,N7<I> 

4610 PRINT @2,205C2-W2,N7<I)-R,C2+W2,N7<I)-R,C2+W2,N?<1>,C2-W2,N7<I> 
4620 L6<2>=N7<I) 

4630 N7<I)=N7<I >-R 
4640 L6<1>=N7<I> 

4650 IF D<K><0 THEN 4760 
4660 IF D<K>=0 THEN 4850 
4670 D1=W2''INT<D<K>''2’< 

4680 J=D1 

4690 PRINT @2,21:C2-W2+J,L6<1) 

4700 FOR J=D1 TO 2TW2 STEP 2*D1 

4710 PRINT @2.20:C2-W2+J,L6<1),C2-W2+J.L6<2> 

4720 IF C2-W2+J+D1>C2+W2 THEN 4820 

4730 PRINT @2,20:C2-W2+J+D1,L6<2),C2-W2+J+D1,L6<1> 

4740 NEXT J 
4750 GO TO 4850 
4760 D1 = 18.'-D<K> 

4770 J=D1 

4780 PRIHT @2,21:C2-W2.L6C1>+J 

4790 FOR J=L6<1>+Dl TO L6<2> STEP 2*D1 

4800 IF J>L6<2) THEN 4340 

4810 PRINT @2,20:C2-W2.J,C2+W2,J 

4820 IF D1+J>L6<2> THEN 4840 

4830 PRINT @2,20:C2+W2,D1+J,C2-W2,Dl+J 

4840 NEXT J 

4850 NEXT I 

4852 IF 2=32 THEN 4960 

4853 IF 82<K>=1 OR B2<K>=2 THEN 4860 

4854 03*03+0.1 
4856 NEXT 02 

4860 IF K= >7 THEN 4890 
4870 IF B2<K+1><>2 THEN 4890 
4880 H8*NS+1 


Editor’s Note: The current version of “Data 
Graphing” being distributed by the 4050 Appli¬ 
cations Library requires that the following 
statements be changed: 


Change Statement. 
Change Statement- 


Change Statement- 
Add Statement - 
Add Statement - 
Add Statement - 
Add Statement • 
Add Statement - 
Add Statement - 


Add Statement- 


3258 VIEWPORT 20,120,20,90 
3260 WINDOW 20,90,20,90 
3280 FOR K=1 TO N1 
3285 GOSUB 18000 
3290 IF 2=32 THEN 3321 
-3295 IF F*="N’ THEN 3321 

3300 PRINT "J CHANGE PEN COLOR IF DESIRED, THEN PRESS CR"; 
3310 PRINT @Z:"GGGG"5 
3320 INPUT X$ 

-3321 REM ttt Mods for redrawing lines on plotter 
-3322 03=0 

-3323 IF Z=32 THEN 3330 

- 3324 REM Test for bar chart 

-3325 IF B20O=l OR B2<K>*2 THEN 3330 

-3326 REM M2=Increnent to Hove pen; 03=Counter for # Redraws 
-332? FOR 02=1 TO 4 
3338 X5=0 
3340 Y5=0 
3350 M4=l 

3370 IF N4(K)=1 OR N4(K)=6 THEN 3430 

3380 GOSUB N4<K>-1 OF 9000,9109,9220,10500 

3430 FOR I=X1 TO X2 

3450 IF Y<I,K><-1.0E+306 THEN 4050 

3460 R=19.6+70«Y<I,K)-L1)/(O-L1) 

3470 C=S3+S2*<I-X1> 

-3471 R=R+U3 

3490 IF D4<K>*7 THEN 4050 

3500 IF B2<K)=1 OR B2<K>=2 THEN 3640 


4020 

4050 

Add Statement — 4051 

Add Statement - 4052 

Add Statement - 4053 

Add Statement - 4054 

4060 

4070 

4080 

4090 

4100 


PRINT 0Z,20:C2+W2,U9+D1+J,C2-W2,U9+D1+J 
NEXT J 
NEXT I 

IF 2*32 THEN 4060 

IF B2<K>*1 OR B2<K>*2 THEN 4860 

03*03+0.1 

NEXT 02 

IF K>5 THEN 4098 

IF B2<K+1><>2 THEN 4090 

N8=N8+1 

GOSUB 8080 

NEXT K 
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Determining Dimensions of an Unknown Array 



by Dick Browne 
Tektronix, Inc. 

Philadelphia, PA 

Did you ever dimension an array and 
then forget how large it was?Here is a 
way to find out without changing the 
contents of the array. Assuming A is the 
unknown array, write this program using 
some unused program steps: 


5008 FOR i*i to 10000 
5010 FOR J*1 TO 10000 
5020 IF THEN 5030 

5030 NEXT J 


Running the program will give you the 
following error: 

DIMENSION-SUBSCRIPT ERROR IN 
LINE 5020 — MESSAGE NUMBER 10 


Enter J-l. The value displayed is the sec¬ 
ond dimension. Change step 5010 as fol¬ 
lows: 


5010 FOR J=1 TO 1 


Now run the program again. When the 
error message appears, enter 1-1. The 
number displayed will be the first dimen¬ 
sion. 

If the array only has one dimension, use 
the following program. The value of 1-1 
is the dimension. 


5000 FOR i=i to 10000 
5010 IF A<I>=0 THEN 5020 
5020 NEXT I 


Common Input Variable 


by Bryan Burma 
Tektronix, Inc. 

Kansas City, KS 

When writing a program with a lot of in¬ 
teractive input, it is a good idea to al¬ 
ways use the same input variable name 
and to use a string variable. Using a var¬ 
iable such as Q$ to denote an input 
variable or a query to the keyboard has 


Data validity checking is much easier 
since the string variable can easily be 
checked for either alpha, numeric, or 
alphanumeric validity. After the val¬ 
idity checks have been performed, the 
common input variable can always be 
reassigned to the appropriate variable 
type. 

Using a common input variable, you 
can reduce the number of variable 


Using an alpha variable (string) will 
aid in preventing program crashes. A 
string variable will accept any key¬ 
board input. If the data is not correct, 
the program can flag the operator. 

Editor’s Note: See the programming tip 
“PRINT USING and Forms De¬ 
sign” in this issue, which discusses input error 
checking. 



by Ron Robinder 

Tektronix, Inc. 

Beaverton, OR 

Following is the program I place on file 1 
on all my personal tapes. It lists the 
names of all programs on the tape quick¬ 
ly, then locates and reads in the one de¬ 
sired. 

As given, the program will read up to 
275 files in pages of 25 each. In practice, 
you seldom require more than two or 
three pages for most practical tapes. The 
first line in each program file must be a 
REM statement which gives the title of 
the file. Fifty characters starting after the 
space will be printed if a two, three, or 
four digit line number is used. If the first 
line is not a REM statement, the entire 
line will be printed. 


For non-program files, the program uses 
the header information to list the file 
type in place of the title. The only char¬ 
acters acceptable in position 9 of a head¬ 
er are: A, B, D, L, N, P or T. Any other 
character will cause an error message to 
be printed. 

The principle advantages of this program 
over using a TLIST program are: 

1. No need to modify the header and 
risk damaging it. 

2. On a 4051, the tape does not auto 
rewind at the end, greatly speeding lo¬ 
cation of files near the end of the 
tape. 

The output option sends the tape index 
to a plotter to make tape labels, or to a 
printer to list rapidly the contents. Note 
that a carriage return is needed in line 
460 to print the next page. 


1 REN INDEX FOR TAPE #1, DATA HANDLING 
4 RUN 100 
100 INIT 

110 PRINT "LINPUT NUMBER FOR OUTPUT DEUICE <32«SCREEN>: J 
120 INPUT D 
130 I*=" * 

140 DIM A$<50> 

150 FOR >1 TO 1 
160 FOR 10=1 TO 5 
170 PAGE BD: 

180 PRINT BD:"INDEX OF PROGRAMS ON TAPE." 

190 PRINT BD:"FILE EXTENDED TITLECLINE 1>" 

200 FOR 1=1 TO 25 
205 PRINT 633,0:0,0,1 
210 FIND I+5*<10-1> 

220 INPUT 033:I» 

225 PRINT 033,0:0,0,0 
227 FIND I+25*<I0-1> 

230 H*=SEG(I*,9,1) 

240 IF H*="A" THEN 280 

250 IF H*="B" THEN 400 

260 IF H»«"L" THEN 480 

270 IF H*="N" THEN 420 

280 Hf=SEG(I$,17,1) 

290 IF H*»’P" THEN 350 

380 IF H»<>"T" AND H*<>"D" THEN 330 

310 PRINT BD:I+25*CI0-1>,*DATA OR TEST FILE* 

320 GO TO 450 

330 PRINT BD:"ERROR IN FILE ’}I+25*<I0-1> 

340 GO TO 450 
350 INPUT 033:A* 

360 A=P0S(A*,"REH ",1> 

370 A*=SEG<A*,A+4,LEN<A*>) 

380 PRIHT BD:I+25*<10-1>,A$ 

390 GO TO 450 

400 PRINT BD:I+25*<I0-1>,"BINARY FILE" 

410 GO TO 450 
420 H$=SEG(I$,35,6) 

430 H=UAL<H*> 

440 PRINT BD: 1+25X10-1), "NEW FILE} LENGTH = "}H|" BYTES" 
450 NEXT I 
460 INPUT T* 

470 INPUT 10 

480 PRINT BD:1+254(10-1),"LAST FILE" 

490 NEXT J 

500 PRINT "INPUT FILE YOU WANT “} 

510 INPUT F 

520 IF F=0 THEN 550 

530 FIND F 

540 OLD 

550 END 
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PRINT USING and Forms Design 


by Dick Browne 
Tektronix, Inc. 

Philadelphia, PA 

The PRINT USING command is one of 
the fastest and most efficient ways to 
draw multiple symbols and forms. Here 
is a review of the proper use of this com¬ 
mand. 

The command: 


180 PRINT USING "P35<72""8"“>"*1 , “S": 


prints a page full of 8’s. Let’s analyze 
the format. 

The “P” causes the screen to page. The 
“35” prints 35 lines, and the “72” prints 
72 symbols per line. Inside the quotation 
marks is the symbol to be printed. The 
next symbol to be printed is the HOME 
symbol (Control-T), which returns the 
cursor to the home position. Next the 
“S” suppresses the carriage return. 
Without the “S”, the cursor would move 
down to the second line. 


100 PRINT USING "P<72***"">/33<“"«""71T" 


Again, the “P” pages the screen. The 
contents of the first parenthesis draw 72 
*’son the first line. Next a CR/LF (/), 
moves the cursor to the next line before 
continuing. The contents of the next par¬ 
enthesis will be repeated 33 times. First 
two*’swill be printed; then the cursor 
will tab to space 71 and print two more 
*’s,then it generates a line feed.The con¬ 
tents of the last parenthesis prints the 
last line. The cursor then returns to the 
HOME position. 


! TECHNICIAN- JOE TECH A/P! 101 

! PRODUCT GROUP !A/C I ACTUAL HRS!RILLED HRS ITAT!08?!PUF TOTAL 



TO BACKSPACE» PRESS RETURN WITH NO ENTRY. TYPE 'END" AFTER LAST ENTRY. 
TO DELETE A LINE, ENTER ■DELETE* AND RETYPE INCORRECT LINE. 


The above form can be drawn with the 
following program: 

Tekniques 
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100 INIT 

110 0*="JOE TECH“ 

120 S*=*101* 

130 X=0 

140 IMAGE F‘2T»llA»14T»FAp46Tf5A>52T»3A»3/»T»14A*17T»3A*S 

150 PRINT USING 140J* TECHNICIAN-* ,0% >*A/P ! * »S* >“PRODUCT GROUP***A/C* 

160 IMAGE 2T*11A»13Tf12A»26T 1 3Ar30T f 3A»34T »9A 

170 PRINT USING 160J’ACTUAL HRS'»’BILLED HOURS*>*TAT *f* 08?*»*PUF TOTAL* 
180 PRINT USING ***I **4/71<*■-*">/**KK**30(16T**!**/)**1**2 /*X 
190 PRINT USING *30(20T* *!'*31T**S* *44T*"i**48T* *!**52T**!* */>S"J 
200 PRINT USING "FAS*J'TO BACKSPACEf PRESS RETURN WITH NO * 

210 PRINT "ENTRY• TYPE "* END * * AFTER LAST ENTRY.* 

220 PRINT USING 'FAS".'TO DELETE A LINEf ENTER *"DELETE** AND * 

230 PRINT USING *FA**1** 4/*J* RETYPE INCORRECT LINE.* 

240 X=X+1 
250 INPUT A$ 

350 PRINT USING *17TAS':*K* 

360 INPUT E<* 

450 PRINT USIN6 *21TAS , : , K' 

460 INPUT C.$ 

550 PRINT USING *32TAS*:*K' 

650 PRINT USING *45TAS*J*K* 

660 INPUT Ei 

750 PRINT USING , 49TAS*1 , K* 

760 INPUT Ft 

050 PRINT USING 'SSTAS'J'K' 



Steps 140-170 position and print the 
words. Step 180 homes the cursor, line 
feeds down four spaces, prints 71 
dashes, carriage returns, then prints a 
column of 30 vertical lines, tabbed in 16 
spaces. 

The cursor is then returned to the 
HOME position and line fed down two 
lines to prepare for the next line. 

Line 190 prints five vertical columns of 
30 vertical lines, tabbed in 20, 31, 44, 48, 
and 52 spaces, respectively. After the 
last (30th) line is printed, there would ac¬ 
tually be two line feeds, one included in 
the command, and the other which is au¬ 
tomatically generated at the end of a 
print command unless suppressed. The 
“S” suppresses the extra carriage re¬ 
turn. 

Lines 200-230 print the instructions at 
the bottom of the form. Line 230, after 
finishing the printing, homes the cursor 
and line feeds four lines to place the cur¬ 
sor in position for the first input. 

Line 240 is a line counter. After every 28 
lines, the form is redrawn. 

String variables are used instead of nu¬ 
meric variables in the input command to 
allow checking for legitimate input. For 
instance, let’s say you want to limit the 
entries in the product group column to 
three categories: “car,” “truck,” and 
“bus.” Elsewhere in the program you 
could define a string: 

H$=*CAR TRUCKBUS “ 

Then when A$ is en¬ 
tered (line 250), the next step would be: 


260 IF LEN<A*)<3 THEN 1120 
270 P=P0S(H*,A*,1) 

The routine starting at line 1120 would 
ring a bell, increment the line counter 
and return you to the first column: 


1120 PRINT ’CG"» 
1130 X=X+1 
1140 GO TO 950 


If the correct category were entered, P 
would be equal to 1, 6, or 11. If not, it 


would be 0, or some other number be¬ 
tween 1 and 15. To determine if the cate¬ 
gory is correct, we’ll add 4 to P and see 
if the resulting number divided by 5 is a 
whole number: 


280 P=<P+4>/5 

290 IF P=INT (P) AND POO THEN 350 
300 PRINT ’GGINCORRECT CATEGORY' 
310 X=X+1 
320 GO TO 250 


B$ is the activity code, (line 360). If you 
want to make sure it is a number you 
could add: 


370 IF B*-“ OR B$<*0" OR B*>'9’ THEN 1120 


Using similar techniques, you can check 
for appropriate entries in any column, 
whether the entry should be a number, a 
letter, one or two particular letters, or 
whatever. 

If fewer columns are required, a form 
can be drawn with instructions down the 
right side: 


TURNAROUND TIME REPORT FOR A/P 101 ! 

CATEGORY !QTY !DAYS !PARTS GTY OR *N' 

-+.-+-- ENTER CATEGORIES ! 

: ! ! AS FOLLOWS! i 

: I : W = WARRANTY ! 

{ i ! C = CONTRACT ! 

i : : m - medical : 

! ! ! F = FDI ! 

! ! ! 8 = CODE 08'S I 

J ! ! A = ALL OTHERS ! 

! I ! ENTER THE NO. OF INSTS.THAT ! 

! . i i PARTS WERE ORDERED FOR OR ! 

! I ! ‘N 1 FOR ‘NO 1 IN THE PARTS 1 

! ! ! ORDERED COLUMN. ! 

I ! ! IF YOU HEAR THE BELL RING. ! 

I i i AN INAPPROPRIATE ENTRY WAS ! 

! ! : MADE AND THE LINE WILL BE ! 

! ! : IGNORED. START AGAIN AT THE! 

! ! ! . BEGINNING OF THE LINE. . ! 

! ! ! ENTER ’O* TO END PROGRAM. ! 


This form is generated using the follow¬ 
ing program: 


100 INIT 
120 H*='101' 

130 U=0 

140 IMAGE F'lOTFAFA 

150 IMAGE 2/T8A12T3A17T4A25T16A 

160 IMAGE 43TFA 

170 PRINT USING 140!'TURN AROUND TIME REPORT FOR A/P! ‘!Ht 
180 PRINT USING 150!'CATEGORY'»' QTY 1 DAYSPARTS GTY OR "N"' 
190 PRINT USING 160!'ENTER CATEGORIES' 

200 PRINT USING 160!'AS FOLLOWS!' 

210 PRINT USING 160!'JW = WARRANTY* 

220 PRINT USING 160!'C = CONTRACTS' 

230 PRINT USING 160!'M = MEDICAL* 

240 PRINT USING 160!*F = FDI' 

250 PRINT USING 160!'8 = CODE 08'S' 

260 PRINT USING 160!'A = ALL OTHERS' 

270 PRINT USING 160!'JENTER THE NO. OF INSTS. THAT' 

280 PRINT USING 160!'PARTS WERE ORDERED FOR OR' 

290 PRINT USING 160! " *N" FOR "NO" IN THE PARTS' 

300 PRINT USING 160!'ORDERED COLUMN.' 

310 PRINT USING 160!‘JIF YOU HEAR THE BELL RING.' 

320 PRINT USING 160!'AN INAPPROPRIATE ENTRY WAS' 

330 PRINT USING 160!'MADE AND THE LINE WILL BE* 

340 PRINT USING 160!'IGNORED. START AGAIN AT THE' 

350 PRINT USING 160!'BEGINNING OF THE LINE.' 

360 PRINT USING 160!'JENTER "0" TO END PROGRAM.' 

370 PRINT USING "*.T"4/40("-">"X"2/'i 

380 PRINT USING '30(1IT■■I " 16T " i " 24T " ! ”/) " I" 4/ 1 ! 

390 IF U=>28 THEN 130 
400 U=U+1 
410 INPUT A* 

540 PRINT USING •12TAS■!'K■ 

550 INPUT X* 

610 PRINT USING '17TAS'!'K' 

620 INPUT lit 

700 PRINT USING *25TAS■:•b;■ 

710 INPUT F't 
860 GO TO 430 


The main difference between this pro¬ 
gram and the previous one is the IM¬ 
AGE 43TFA statement. It can be used 
repeatedly to print a column of any 
length starting at a point other than the 
left margin. Changing the number before 
the “T” changes the starting point of the 
column. JgSD 
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4050 Series Applications Library Programs 


Ordering 

Programs included in the Applications Library prior to Septem¬ 
ber 1981 are packaged and nomenclated by function. Those pro¬ 
grams accepted into the Library after September 1981 are 
packaged and nomenclated with the Volume and Number of the 
corresponding issue of TEKniques in which the package was an¬ 
nounced. 

Each package includes the source code on tape or disk (T=tape ; D— 
disk) together with the supporting documentation; listings 
are not included in the documentation. Documentation may be 
purchased separately. 

The 4050 Series Applications Library Programs catalog (Septem¬ 
ber 1981) contains the abstracts describing the programs in each 
package along with representative output in most cases. The ca¬ 
talog part number is 062-6343-00. 

To receive a copy of the catalog, or to order a package, contact 
your local Tektronix field office. The field office has the current 
prices. 


Package Title Package Part # 

Business Aids T1 . 062-5987-01 

Business Aids T2 . 062-5988-01 

CAD T1 . 062-5976-01 

CAD D1 . 062-5977-01 

Character Generator T1 . 062-5951-01 

Education/Research T1 . 062-5982-01 

Education/Research T2 . 062-5983-01 

Electrical Engineering T1 . 062-5978-01 

Graphing T1 . 062-5964-01 

Graphing T2 . 062-5965-01 

Graphing T3 . 062-5966-01 

Graphing D1 . 062-5967-01 

Graphing D2 . 062-5968-01 


Interfacing T1 . 062-5984-01 

Mapping T1 . 062-5980-01 

Mechanical Engineering. 062-5979-01 

Programming Aids T1 . 062-5971-01 

Programming Aids T2 . 062-5972-01 

Project Aids T1 . 062-5985-01 

Project Aids D1 . 062-5986-01 

Recreational Plots T1 . 062-5989-01 

Slidemaker T1 . 062-5962-01 

Slidemaker D1 . 062-5963-01 

Text Processing T1 . 062-5969-01 

Text Processing D1 . 062-5970-01 

Utilities T1 . 062-5974-01 

Utilities D1 . 062-5975-01 

Tekniques Vol. 5 No. 4 T1 . 062-5981-01 


The program material contained herein is supplied without war¬ 
ranty of any kind, and without any representation regarding 
quality, performance or suitability. TEKTRONIX specifically dis¬ 
claims any implied warranties of merchantability or fitness for a 
particular purpose. Software support is TEKTRONIX Category 
C: Software is provided on an ‘ ‘as is’ ’ basis. 

Program Contributions 

Contribute one program to the Applications Library and receive 
the package of your choice in exchange. Send in the membership 
card from your 4050 Series Graphic System Reference Manual to 
get the details. Or call us at (503) 685-3618. 

Outside U.S. 

Program contributions or orders outside the United States must 
be processed through the local Tektronix sales office or sent to 
one of the Libraries serving your area. See Library Addresses 
section of TEKniques. 


TEKniques Vol. 5 No. 4 T1 

TEKniques Vol. 5 No. 4 T1 tape con¬ 
sists of 67 programs: 10 programming aid 
routines, four 3-D graphing programs, 
five 2-D graphing programs, one index 
program for literature references, and 47 
programs using the 4050 as a controller 
for TM5000 instruments. 

The programming aid routines maintain a 
tape index, label file headers, cross 
reference ASCII programs and include 


code for a variety of routines useful in 
programs. 

The graphing programs are the entries in 
the Graphing Contest sponsored by 
TEKniques in the Spring of 1981. 

The Reference Index program creates 
and maintains a list of literature refer¬ 
ences. It must be transferred to a sepa¬ 
rate dedicated tape. 

As a supplement to the GPIB Program¬ 
ming Guide (see related article in this 
issue of TEKniques), 47 4050/TM5000 in¬ 


strument controller examples and utilities 
have been included in this tape, along 
with their index. Having the machine 
code available through the Applications 
Library saves users from keying in the 
code printed in the Guide. These pro¬ 
grams must be transferred to a tape 
where they occupy the first 48 files. 

The following individual abstracts de¬ 
scribe each program’s function. 
Documentation for programs affected 
contain complete instructions for accom¬ 
plishing file transfers. 


Program 1 

Title: TAPEMENU 
Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 16K 
Peripherals: Optional-4924 Tape Drive 
Files: 1 ASCII Program 
1 Binary Data 
Statements: 188 


and display a file of the names and file 
numbers of all ASCII Program files on 
tape. When a program is selected, TA¬ 
PEMENU will load and run it. 

You may also number and label a tape 
cartridge using TAPEMENU. The file¬ 
names are previously created with 
FMARKER (Program 4 below). 

Storage capacity of file names is current¬ 
ly 100, but may be easily changed. 


T B A S I C PROGRAM LIBRARY OF 
- TEKTRONIX APPLICATIONS LIBRARY PROGRAMS * 
09-22-81 

Tape CARTRIDGE: *V0L3N04T1 • D«vict *33 


1- TAPEMENU 2- ReadNote 3- MrltNot. 4- FMarker 5- LHeader 

6- PHcadcr 7- Stripper 8- Cro**Ref 9- TapcDupc 10- ConpSort 

11- TAPEHEiS 12- ReadNo:S 13- HritNolS 14- FMarke:S 15- LHcadciS 

16- PHcadelS 17- Strlpp:S 18- CroisR:S 19- TapcDulS 28- ConpSosS 

21- TAPEHElR 22- ReadNo:R 23- UritNoiR 24- FMarkelR 23- LHcadciR 

26- PHeadc:R 27- StrippJR 28- Cro»*R:R 29- TapeDulR 38- ConpSo:R 

31- Z«F<X,Y> 32- StereoPt 33- M/HoHdnL 34- PlotThrD 33- Append 

36- Append 37- PipeChrt 38- Contour* 39- Hierarel 40- Nonlncar 

41- Vertical 42- RefIndex mmmmm x 

Input 'PROGRAM' Option > 


TAPEMENU will establish, maintain 
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Program 2 

Title: READNOTE 
Author: Bob Manthey 
\ County of San Diego 

San Diego, CA 
Memory Requirement: 8K 
Files: 1 ASCII Program 
Statements: 37 


READNOTE is a short utility routine 
that displays a data file created by 
WRITNOTE (see abstract below). 

However, the core of this routine and its 
methods may be used as a subroutine 
within a complex program, allowing it to 
display instructions that would be prohi¬ 
bitively large to code into the program. 


GENERAL PROGRAM NOTES: 

1. TAPEMENU - 

This progran will establish, maintain, a ltd display a binary data¬ 
file containing the names and file numbers of all ASCII encoded 
programs contained on the tape. (The names arc those previously 
created with the 'FMARKER' utility.) Upon selecting a program by its 
relative display-number, the program will load-and-run it. 

(Press 'RETURN' to Continue!) 


Program 3 

Title: WRITNOTE 

Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 8K 
Peripherals: Optional-4924 Tape Drive 
Files: 1 ASCII Program 
Statements: 37 


This is a quick utility which creates and 
edits notes in a data file. It is line orient¬ 
ed. 


The program will automatically MARK a 
file large enough for the newly created or 
modified text and store it. 


Once the notes are created and stored, 
they may be modified a line at a time. 
Modifications include: 

Leaving a line as is 
Changing a line 
Inserting a line 
Deleting a line 


LINE-EDIT MODE: 

1- Modify. 2- Insert, 3- Delete, 4- End ) 

TAPEMENU - 

LINE-EDIT MODE: 

1- Modify, 2- Insert, 3- Delete, 4- End > 

This program will establish, maintain, and display a binary data- 
LINE-EDIT MODE: 

1- Modify, 2- Insert, 3- Delete, 4- End ) 
file containing the names and file numbers of all ASCII encoded 
LINE-EDIT NODE: 

1- Modify, 2- Insert, 3- Delete, 4- End >1 
Enter LINE (Start LAST line with 'Control-C') 

ile containing the names and file numbers of all ASCII 
(Is this CORRECT!) yes 

programs contained on the tape. (The names are those previously 
LINE-EDIT MODE! 

1- Modify, 2- Insert, 3- Delete, 4- End > 


Program 4 

Title: FMARKER 

Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 8K 
Peripherals: Optional-4924 Tape Drive 
Files: 1 ASCII Program 
Statements: 255 

Use this routine to mark a tape file head¬ 
er with an 8 character name and also a 
30 character Remarks-Extender. 


A listing facility included in this routine 
will produce an index of the tape files, 
and compute and display the file space 
— used and free, in both a byte and 
block format, with their respective per¬ 
centages. (This is for a standard DC300A 
cartridge only!) 


TEKTRONIX APPLICATIONS LIBRARY PROGRAMS 


ASCI 

ASCI 

ASCI 

ASCI 

ASCI 

ASCI 

ASCI 

ASCI 

ASCI 

ASCI. 

ASCII 

ASCI 

ASCI 

ASCI 

ASCI 

ASCI 

ASCI 

ASCI 

ASCI 

ASCI 

ASCI 

ASCI 

ASCI 


PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

DATA 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 


TAPEMENU 

tMcnuDat 

RcadNotc 

WritNote 

FMarker 

LH«ad«r 

PH«ad«r 

Stripper 

TapcDupc 
CompSort 
PR0GN0TE 
TAPEME:S 
ReadNo:S 
WritNolS 
FMark«:S 
LH«ad«:S 
PHcadt:S 
Stripp:S 
CrossRiS 
TapeDuiS 
CompSo:S 
TAPEME:R 
ReadNo:R 
WritNoiR 


ProgramFile Menu with Chaining 
ProgranFila Numbers-t-Nanes 
ASCII Data-Note Reading Routin 
ASCII Data-Note Writing Routin 
Tape-File Header Marker-Extndr 
File-Header Library SubRoutine 
Standardized Program Header 
Program 'REMARK'* Stripper 
Cross-Reference ASCII Programs 
4924 Tape-to-Tape Copy Utility 
Sample Bub I-Sort l She1-Sort 
General Library-Programs Notes 
STRP: ProgramFile Menu with Ch 
STRP! ASCII Data-Note Reading 
STRP: ASCII Data-Note Writing 
STRP: Tape-File Header Marker- 
STRP: File-Header Library SubR 
STRP: Standardized Program Hea 
STRP: Program 'REMARK'S Stripp 
STRP: Cross-Reference ASCII Pr 
STRP: 4924 Tape-to-Tape Copy U 
STRP: Sample Bubl-Sort t Shel- 
XREF: ProgramFile Menu with Ch 
XREF! ASCII Data-Note Reading 
XREF! ASCII Data-Note Writing 


In addition, the tape cartridge may be 
given a 10 character alpha-numeric iden¬ 
tifier and a 48 character name. 


Program 5 

Title: LHEADER 
Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 8K 
Files: 1 ASCII Program 
Statements: 77 


The FMARKER utility writes an eight 
character marker beginning at column 25 
of the file header. Unfortunately when¬ 
ever you write/save data to a file, the 
4051 writes over columns 25 and 26 with 
spaces. 

You may alleviate this problem by incor¬ 
porating the two routines contained in 
this file into your write/save programs. 


Program 6 

Title: PHEADER 

Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 8K 
Files: 1 ASCII Program 
Statements: 38 


This file contains an example of how the 
tape-cartridge identifer created with 
FMARKER might be used as part of the 
BASIC program identifier line. 
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Program 7 

Title: STRIPPER 


The stripped program is saved and la¬ 
beled as a separate ASCII Program file. 
The original program remains intact. 


Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 32K 
Peripherals: Optional-4924 Tape Drive 
Files: 1 ASCII Program 
Statements: 260 

This program strips the ‘REMarks’ from 
an ASCII Program file. One of three 
stripping modes is available: 

1. Delete REMark commentary 

2. Delete REMark line 

3. Delete REMark line and RENumber 
the following line 


100 REN —-«- INTRINSIC INITIALIZATION S. GLOSSARY ———————» 

110 INIT 

120 REN - Nuncrlc Oariabl**/Con*tant* --- 

122 REN D - Device-Drive Nunbcr <2- 4924, 33- 40S1> 

124 LET D-33 

126 REN F -File Nunbcr 
128 LET F-2 

130 REN P - Progran Index Number 
132 LET P-0 

134 REN T -Total Nunber of Progran* 

136 LET T-100 

140 REN - String Uarioble*''Con*tant* ----- 

142 REN C* ■ Tape-File Header-Deliniter (Carriage Return) 

144 LET C0-CHRO3) 

146 REN 0$ - Date of Lattft File Activity 

148 DIN D»<8> 

149 LET D»-" * 

158 REN E* - Tap«-Fil» Header-Extender 
152 DIN E»<210> 

154 REN F* - Conpotitc Flle-Nunber-L-Nane String 
156 DIN F*<T*11) 

158 REN H* - Tape-File Header 
160 DIN HF<42> 

162 REN H* - Tape-File Headcr-Narker 
164 DIN H*(8> 

166 REN N* - Tape-File Nunbcr 
168 DIN N*<3> 

170 REN P* ■ Progran-File CNunber-t-HNane 
172 DIN P*<11> 

174 REN Q* - Tape-Cartridge Identifier 

176 DIN Qf<101 

177 LET Q»-’ • 

178 REN R* - Tape-Cartridge Nana 
180 DIN R*<48> 


126 F-2 
130 P-0 
134 T-100 
140 C*«CHR<13> 
'" DIN D*<8) 


146 D1 

149 D$' 

150 Dr- 
154 D 
158 D 
162 D 
166 D 
178 D 
174 D 


177 8*-' 


178 Dl 


... E*(218) 

H F$(Ttll> 
H H»<42> 

N «*<8> 

H N$<3> 

:n p*an 

:h q$<10> 


N R*<48) 


Program 8 

Title: CROSSREF 
Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 32K 
Peripherals: Optional-4924 Tape Drive 
Files: 1 ASCII Program 
Statements: 404 

This program will sequentially index a 
cross-referenced ASCII program. The 
cross-referencing may include six or 13 
commands: 


or all of the above plus 

DELETE, LIST, SAVE, APPEND, 
RENUMBER, CALL and RUN 

The index is saved and labeled as an AS¬ 
CII program or REMark statements. 
This file may be loaded later for display, 
or appended to the source file from 
which it is derived. 



OF, GO TO, GOSUB, THEN, RE¬ 
STORE, & USING only 


Program 9 

Title: TAPED DUPE. 

Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 16K 
Peripherals: 4924 Tape Drive 
Files: 1 ASCII Program 
Statements: 320 

This program transfers any type of pro¬ 
gram or data files from the 4050 internal 
tape drive to the 4924 tape drive. The 
duplicated file will retain the original 
header and extender. 

The program will automatically MARK 
the new files, if desired. 
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Program 10 

Title: COMPSORT 
Author: Bob Manthey 

County of San Diego 
San Diego, CA 
Memory Requirement: 16K 
Files: 1 ASCII Program 
Statements: 172 

This sample program generates a list of 
random and ordered numbers. These 
numbers are then sorted by a Bubble- 
Sort routine which uses a floating win¬ 
dow; followed by a Shell-Metzner Sort 
for comparison. Both routines may be 
used, as is, with only the array name and 
element variables changed to ones appro¬ 
priate to your program. 



Program 11 

Title: General Function Z=F(X,Y) 
Plot 

Author: Dony Robert 

Brussels, Belgium 
Memory Requirement: 32K 
Peripherals: Optional-4662 Plotter 
Files: 1 ASCII Program 
Statements: 452 

This program draws two variable func¬ 
tions, z=f(x,y), with hidden lines re¬ 
moved. The draw is made in a rectangu¬ 
lar region so that X1^X=^X2 and 
Y1^Y^Y2. 

The function may be drawn on a block 
representing axes parallel to the three re¬ 
al axes X,Y,Z as well as the study inter¬ 
vals. 



Program 12 

Title: Stereo Surface 
Author: Dr. P.R. Tregenza 

Department of Architecture 
University of Nottingham 
Nottingham, England 
Memory Requirement: 4052/54 32K 
Peripherals: Optional-4662/4663 Plotter 


The Bubble-Window sort is my trans¬ 
cription of a North Star BASIC routine 
written by Paul T. Brady, and published 
in the September 1980 issue of “BYTE” 
magazine. 

The Shell-Metzner sort is my transcrip¬ 
tion of a routine originally transcribed 
into North Star Basic by Steven Fisher, 
La Mesa, CA, and made available by 
him to the San Diego North Star User 
Group Library. 

The Bubble-Window routine is designed 
specifically to sort lists with only a few 
entries out of order, or to check a list 
quickly to ensure that all entries are or¬ 
dered. 


The user writes the function to be stu¬ 
died, for instance in the form: 

2500 Z= — 8*EXP(— X*X— Y*Y)*(X+ Y) 

As soon as the user types RUN 
(RETURN), the program asks the inputs 
necessary to do the calculations and 
prompts for the following options. 

1. Any seeing angle. The eye always 
looks at the origin of the axis. The az¬ 
imuth angle 01 can vary from (F to 
180°, and from (F to -180°. The dip 
angle 02 can vary from (F to.9(F and 
from (F to -9(F. 

2. The number of slices cutting the sur¬ 
face. 

3. The number of joints on each slice. 

4. The eventual file number to record 
the drawing in G.D.U.s that allows a 
fast redraw of the function later. 

5. The true scale or a uniform scale. 

6. One or two directions of cutting. 


Files: 1 ASCII Program 
Statements: 200 

An equation of the form Z=F(X,Y) is 
plotted as a surface drawn in perspective 
with optional plotter output as a stereo 
pair. 

The equation is contained in a subroutine 
which is listed initially on the screen. 

The user may change the perspective 
viewpoint and specify the number of 
lines drawn. Hidden lines are removed 
from the image. 


The Shell-Metzner technique, on the oth¬ 
er hand, is reasonably efficient when 
used with moderate amounts of random 
sequential data need to be sorted. 

Either routine should be easy to adapt to 
specific sorting configurations in a vari¬ 
ety of programming languages, or dia¬ 
lects. 


7. The drawing of the function with or 
without the axis block. 



Projection of the eye on the XY 
plane 


Functions must be continuous and injec¬ 
tive. 

Surfaces can be drawn from underneath. 
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Program 13 

Title: 3-D Plot w/wo Hidden Lines 

Author: Lothar Tschimpke 
Munich, Germany 
Memory Requirement: 16K 
Peripherals: Optional-4662/4663 Plotter 
Files: 1 ASCII Program 
Statements: 272 

This program plots a net or lines of a 
mathematical or programmable function 
of two variables, e.g., Z=F(X,Y). The 
functions can be viewed under any an¬ 
gle. 


When using the Hidden-Line Algorithm, 
the Z-axis has to be vertical. 

The program automatically begins draw¬ 
ing in front and generates a pattern, 
which gives the information, whether 
next line can be drawn or not. 



Program 14 

Title: PLOT3D 

Author: Robert Kennedy 
Elliot Noma 
Philadelphia, PA 
Memory Requirement: 16K 
Peripherals: Optional-4662 Plotter 
Files: 3 ASCII Program 
Statements: 226 

PLOT3D is a plotting routine which is to 
be run as an appended subroutine to a 
main program. 

PLOT3D receives vertical Z values for 
points on a line through the X-Y plane. 
The X,Y,Z coordinates for these points 
are rotated around the Z-axis and then 



Program 15 

Title: Pipechart 

Author: Steven Salisbury 

Whirlpool Corporation 
Benton Harbor, MI 
Memory Requirement: 16K 
Peripherals: Optional-4662 Plotter 
Files: 1 ASCII Program 
Statements: 160 

This program quickly provides a three 
dimensional bar chart with shading. Up 


around the X-axis. PLOT 3D then plots 
the line segments joining the rotated 
points, provided the segment appears 
above the hidden line horizon stored as a 
mask. 

The mask is an array which spans the 
screen’s horizontal axis containing the 
values of the maximum vertical values 
(in screen coordinates) for the particular 
horizontal value. The plotted point is 
checked against the mask by comparing 
vertical values for the point and the 
mask given by the horizontal values. 

Once plotted or attempted to plot, the 
mask values for the horizontal values af¬ 
fected is updated. 


to 12 bars may be displayed on the 4050 
screen or the 4662 Plotter. 

Data entered from the keyboard is dis¬ 
played in the form of N cylindrical bars, 
where N is the number of bars selected 
by the user. The bars are drawn on a 
stand, and a title block is placed above 
the bars for a one line, 52 character title. 
Due to the intensity of the shading, the 
program does not shade bars when draw¬ 
ing on the plotter. 

The Y-axis minimum is always set to ze¬ 
ro. Only positive values may be plotted. 

Once the data is entered, the width of 
the bars, maximum Y-value and plotting 
device may be changed through the 
User-Definable Keys and the plot re¬ 
drawn. 


After the line is plotted, control returns 
to the calling program and PLOT3D 
waits for the next line of Z values. 
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Program 16 

Y r % 

Title: Contour Plots 

Author: Jerry W. Anderson 

Bartlesville, OK \ 

Memory Requirement: 8K 
Peripherals: Optional-4662 Plotter 
Files: 1 ASCII Program 
Statements: 149 

This program plots response surfaces (or 
contour plots) in two dimensions. It uses 
the 3-dimensional full-quadratic model 
(or subsets thereof) as a function: 


where Z, X, Y are variables and YO, A, 
B, AB, ASC, & BSQ are constants which 
may be known or determined by regres¬ 
sion. Very high resolution plots may be 
generated. The user may determine the 
number of contours desired and their 
value. 

In effect, we have displayed a three-di¬ 
mensional data space in two dimensions, 
much as a topographical map displays 
geographical features. 


EXAMPLE 



Z = YO + A*X + B*Y + (AB)*X*Y + 
(ASQ)*Xf2 + (BSQ)*Yj2 



Program 17 

Title: Hierarchal Clustering 

Author: Jerry W. Anderson 
Bartlesville, OK 
Memory Requirement: 32K 
Peripherals: Optional-4662 Plotter 
Files: 1 ASCII Program 
Statements: 244 

Consider a data set consisting of N vec¬ 
tors (or data points) each in L dimen¬ 
sions. 


A sequence of classifications in which 
larger clusters (or groupings) are ob¬ 
tained through a merger of smaller ones 
is called a nested or hierarchal classifica¬ 
tion. Basically, it shows the relationship 
between each data point and every other 
point in the data set by forming a tree or 
dendograph (similar to a family tree). 
The similarity of two data points is in¬ 
versely related to the distance between 
them along the branches of the tree. 


There are basically three types of hierar¬ 
chal clustering: single linkage, average 
linkage, and complete linkage. Among 
these, single linkage is the most simple. 
It begins by finding the link between the 
two closest data points. The succeeding 
stages consist of finding the shortest re¬ 
maining link which directly joins together 


data points not already joined indirectly 
through a chain of links or branches. In 
essence, it searches through the distance 
matrix seeking the shortest distance that 
will contribute to further linkage or 
branching of the clusters. 

Data may be entered from the keyboard 
or reside on a data file. 

Example: Eleven measurements were 
made on each of 8 products. Products B 
and Y were actually different lots of the 
same product, as were I & J, L & M, 
and C & E. We desire to know some¬ 
thing about the relative similarities and 
differences among there eight products. 
The data matrix is as follows: 

We may conclude that I & J are the 
most similar products made, followed by 
L & M, C & E, then B & Y. The group¬ 
ing into pairs was as expected. (The 
smaller the distance with which two 
products “join up,” the greater the simi¬ 
larity.) We may then conclude that 


among all pairs, pair B & Y and pair I & 
J are most similar. We then see that the 
group B, Y, I, J, L, & M are more simi¬ 
lar among themselves than among the 
pair of C & E. 
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Program 18 

Title: Nonlinear Mapping 

Author: Jerry W. Anderson 
Bartlesville, OK 
Memory Requirement: 32K 
Peripherals: Optional-4662 Plotter 
Files: 1 ASCII Program 
Statements: 244 

Nonlinear mapping reduces the dimen¬ 
sions of a data set (i.e., N vectors with 
L dimensions) to one of lower dimen¬ 
sions, usually to two so a cross plot may 
be used to observe the groups (or clus¬ 
tering) of the data units. The mapping 
preserves the data structure by obtaining 
N points in lower-dimensional space so 
their interpoint distances approximate 
the corresponding interpoint distances in 
L space. In other words, we seek a set 
of N two-dimensional vectors whose dis¬ 
tance matrix (N x N) is very near the 
distance matrix (N x N) of the original 
data set, i.e., N vectors in L dimensions. 

Designate the N vectors in L-space by 
X i5 i = 1, . . ., N. Designate the N vec¬ 
tors in d-space (where d = 2 usually) by 
Y i? i= 1, . . N. Let the distance (ac¬ 
cording to any desired distance metric) 
between Xj and Xj in L-space be defined 
by dy* = dist (X i? Xj). Similarly, let the 
distance between the corresponding vec¬ 
tors Yj and Yj in d-space be defined by 
du = dist (Y i? Yj). 


We shall choose starting values for the Y 
values in d-space. Using these starting 
values, we shall calculate the d-space 
distance, d y , from which we define an 
error E. This error tells us how well the 
present configuration of N points in d- 
spaee fits the N points in L-space: 

N 

__L 2 {du*— du} 2 

E = 2{d u *}i<j d u * 

The next step in this iterative algorithm 
is to adjust the Y variables so as to de¬ 
crease the error E. A steepest descent 
procedure is used in order to minimize 
the error. 

The data matrix must be stored rowwise 
on a previously-created file. 

Considering the same data used in Pro¬ 
gram 17, use nonlinear mapping as a data 
reduction technique to reduce the data 
set from (8,11) to (8,2) while preserving 
interpoint distances as much as possible, 
and then crossplot the two resulting col¬ 
umns. Closeness on the crossplot indi¬ 
cates relative similarity. 

Products B & Y are very similar, as are 
C & E, I & J and L & M. However, the 
pair B & Y is relatively dissimilar to the 
pair C & E. The mapping error of .014 is 
good. 
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Program 19 

Title: Vertical Plot 

Author: Jerry W. Anderson 
Bartlesville, OK 
Memory Requirement: 8K 
Peripherals: Optional-4662 Plotter 
Files: 1 ASCII Program 
Statements: 137 

This program graphically presents on one 
page a data set consisting of M rows in 
N dimensions. Each of the M observa¬ 
tions is represented by a 1-character 
code, which is plotted on each of N 
vertical scales across the page. 

A typical use of the program would be in 
an examination of M products, each with 
N measurements or properties (missing 
values are allowed). Relative product 
differences, with respect to each of the 
N measurements, are easily observed on 
the scales. Product and measurement la¬ 
beling is allowed. 
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Thus, we have depicted in two dimen¬ 
sions an N dimensional space. We have 
consolidated many plots on one page. 
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Program 20 

Title: Reference Index 
Author: F.G.G. Voigts 

National Physical Research Lab- 
I oratory 

Pretoria, South Africa 
Memory Requirement: 32K 
Files: 1 ASCII Program 

Requires dedicated tape 
Statements: 385 

This program creates, stores on tape, 
updates and lists an index of literature 
references. The following data may be 
stored: 

Author 

Journal 

Volume 

Date 

Page 

Status (or type) Symbol 
Title 


The minimum information required is au¬ 
thor, year of publication and the status 
symbol. The rest is optional and the 
fields could be used for other informa¬ 
tion. 

The program assigns a code to each 
reference, comprised of the first three 
letters of the author’s surname, the year 
of publication and another letter to dis¬ 
tinguish between otherwise equal combi¬ 
nations. The references are arranged al¬ 
phabetically in 26 data files according to 
these codes. New references are sorted 
and inserted in the appropriate file. 
Existing references within a file may be 
deleted or changed. 



Program 21 

Title: 4 0 5 0 /TM 5 0 00 GPIB 
Routines 

Authors: Jim Kimball 

Barbara Malin 
Steve Peterson 
Tektronix, Inc. 

Beaverton, OR 
Memory Requirement: 8K 
Peripherals: TM5000 Mainframe and 
Plug-ins 

Files: 48 

Statements: 2,498 
Requires dedicated tape 

These 47 routines, following a directory 
on file 1, match listings in the GPIB Pro¬ 
gramming Guide (available separately un¬ 
der part number 070-3985-00). They are 
provided on this tape to save the user 
the task of keying in examples from the 
listings printed in the Guide. 


The GPIB Programming Guide aids the 
users of 4050 Desktop Computers and 
TEKTRONIX TM5000 series instru¬ 
ments in making the software connec¬ 
tion. The Guide introduces the 4050 as a 
controller for TM5000 instruments, with 
programming information specific to in¬ 
strument control. Major topics are: 

GPIB Input/Output 
Interrupt handling 
Interrupt handling statements 
Utility routines 

4052/GPIB send and receive program 


TM5000 series instruments specifically 
covered in this Guide include: 

DC5009 and DC5010 — Programm¬ 
able Universal Counter/Timers 
DM5010 — Programmable Digital 
Multimeter 

FG5010 — Programmable Function 
Generator 

PS5010 — Programmable Power Sup- 
ply 


Corrections to New Packages Documentation Correction 


As happens to any new product, we are 
findng some errors crept into some of 
the documentation or programs for the 
new 4050 Applications Library packages. 
If these errors impact the use of a pro¬ 
gram, they will be published in TEK- 
niques as they are uncovered. If they are 
“typos” or cosmetic problems, they will 
)e corrected in the next printing of the 
affected documentation or duplication of 
the master tape/disk, but won’t be re¬ 
ported in this column. 


Title 

TEXT PROCESSING D1 
Part Number 
062-5970-01 
Program Title 
$Edit.Dos/$Format.Dos 
Page Number 
88 


Original Copy 

Step 3 . 

COPY “$FORMAT.DOS”,OTO“$#”,1 
COPY “$EDIT.DOS”,OTO“$# ”,1 

COPY “EDIT#”,0TO“@#”,l 
COPY “@TEXT#”,0TO“@# ,1 

Change 

Insert @ before EDIT on third line so 
it will read: 

COPY “@EDIT#”,0TO“@#,l ^ 
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4050 Series Applications Libraries 


Africa, Europe, Middle East 

Contact local sales office 

Australia 

4050 Series Applications Library 
Tektronix Australia Pty. Limited 
Sydney 

80 Waterloo Road 
North Ryde, N.S.W. 2113 


Canada 

4050 Series Applications Library 
Tektronix Canada Ltd. 

P O. Box 6500 
Barrie, Ontario 
Canada L4M 4V3 

Caribbean, Latin America 
and Far East (excl. Japan) 

IDD Group 
Export Marketing 
Tektronix, Inc. 

P.O. Box 500 
Beaverton, Oregon 97077 
U.S.A. 


Japan 

4050 Series Applications Library 
Sony/Tektronix Corporation 
9-31 Kitashinagawa-5 
Tokyo 141 Japan 

United States 

4050 Series Applications Library 
Tektronix, Inc. 

Group 451 
P.O. Box 500 
Beaverton, Oregon 97077 
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